У МЕНЯ В ЭКЗАМЕНЕ ЭТА ЗАДАЧА, решите задачу в программе PASCALABC.NET

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.

Первая программа:
В ней ты вводишь число Б с клавиатуры,и проверяешь через цикл является ли б минимальным числом,если введённое б<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