Первая программа: В ней ты вводишь число Б с клавиатуры,и проверяешь через цикл является ли б минимальным числом,если введённое б<32000,то оно-минимальное Вторая: Вводишь н для количества повторений цикла Пока не дошло до числа н, вводишь с клавиатуры А,далее каждое А проверяется на условия: минимальное число(32000 по условию)>а,а делится на пятнадцать без остатка,а>0, если все эти условия соблюдены,то а-минимальное число. Без цикла проверяет остаток от деления числа А на 15 и записывает остаток от деления в переменную Б Выводит на экран минимальное число и значение переменной Б Третья: Проверяет условие: переменная А больше Б,если да,то выводит на экран переменную А,если нет-то выводит на экран переменную Б
Последовательность Фибоначчи. Следующий элемент: 34 + 55 = 89
Записываем все натуральные числа подряд и разбиваем их на цифры
о, д, т, ч, п, ш, с, в, д, д, ... Выписываем натуральные числа в ряд. Каждому натуральному числу сопоставляем первую букву его названия. 1 -> о (один) 2 -> д (два) ... 10 -> д (десять) 11 -> о (одиннадцать)
Первый элемент 1. Каждый следующий элемент образуется так: выделяем цифру, считаем, сколько раз она встречается подряд в этом числе, начиная с текущей позиции и приписываем в конец нового числа пару (сколько раз цифра встречается подряд, сама цифра) 1) 1 2) 1 встречается 1 раз. Значит, пишем 11 3) 1 встречается 2 раза. Значит, пишем 21 3) 2 встречается 1 раз. Значит, пишем 12. 1 встречается 1 раз. Значит, пишем 11. Получилось 1211 4) 1 встречается 1 раз. Значит, пишем 11. 2 встречается 1 раз. Значит, пишем 12. 1 встречается 2 раза. Значит, пишем 21. Получилось 111221. 5) аналогично 6) 3 встречается 1 раз. Значит, пишем 13. 1 встречается 1 раз. Значит, пишем 11. 2 встречается 2 раза. Значит, пишем 22. 1 встречается 2 раза. Значит, пишем 21. Получилось 13112221
program ABC;
var d: integer;
begin
readln(d);
if d > 39 AND d < 51 then writeln("легкий") else if d > 50 AND d < 71 then writeln("средний") else writeln("тяжелый");
end.