fkn+antitotal

урок 10.1

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.
Подсказка: в каждой ветке условного оператора тут должно быть по одному цикл

var a,i:integer;
begin
 
  writeln('ведите число');
  readln(a);
  if (a > 100) then
   for i:=a downto 1 do  
     write(i, ' ')
  else
   for i:=1 to a do
     write(i, ' ');
  readln(); 
 
end.

урок 10.1

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

урок 10.1

Выведите на экран, все четные числа от 35 до 64.

var
i:integer;
begin

  for i:=35 to 64 do
    write(i, ' ');

  readln();
end.              

что должно вывести:

Урок 16 Задача 4

Пользователь вводит N (N < 20) пар целых чисел, считаем что это пары координат отрезков на прямой, сохраните их в двумерный массив.

Напишите подпрограмму, которая определит - есть ли у них общее пересечение, и если есть - вычислит координаты отрезка-пересечения.

Решение:

Урок 16 Задача 3

Вспомогательная задача (можно решить, просто используя одномерные массивы):
Пользователь вводит 4 целых числа, считаем все их координатами на прямой, а именно:

первые два числа - начало и конце отрезка 1
вторые два - начало и конец отрезка 2

Задача: напишите подпрограмму, которая определит какой отрезок является пересечением этих двух заданных отрезков (если это пересечение вообще есть).

Урок 16 Задача 2

Вспомогательная задача (можно решить, просто используя одномерные массивы):
Пользователь вводит 4 целых числа, считаем все их координатами на прямой, а именно:

первые два числа - начало и конце отрезка 1
вторые два - начало и конец отрезка 2

Задача: напишите подпрограмму, которая определит пересекаются ли данные отрезки.

Решение:

Урок 16 Задача 1

Пользователь вводит подряд 8 целых числ, сохраните их в двух разных двумерных массивах:

1) первые 4 числа так, чтобы в каждом подмассиве было 2 элемента.
2) вторые 4 числа так, чтобы в каждом подмассиве было по 1 элементу

Обойдите эти двумерные массивы и распечатайте результат (значения очередного подмассива печатайте с новой строки)

Решение:

Урок 15 Задача 22

Задача про банкомат:

Пользователь вводит целое число - сумму в некоторой валюте, требуется выдать эту сумму купюрами наибольшего достоинства.

Напишите программу, которая в качестве результата скажет как именно надо разменять указанную сумму купюрами наибольшего достоинства (укажет количество для купюры каждого типа)

Например, пусть у нас набор купюр 1000, 500, 100 и 50 рублей:

Задача 1. Урок 11.

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

var a: integer;
begin
  a := 1;

  while (a <= 15) do
  begin
    writeln('vvedite celoe chislo:');
    readln(a);
    writeln(a + 7);
  end;

  writeln('Czikol zavershon');
  readln();

end. 

Консоль:

Windows

Можно использовать знаменитую программу lightshot: https://app.prntscr.com/en/index.html

-- см. видео-инструкцию по использованию

LInux

Раздел по линукс тут