Question

Подписать все куски программ (что они выполняют): program 'test'; var a, b, c, n, i, min: integer; begin min: =32000 a: =10 #1) while (a< =15) do begin readln(b); if (b< =min) then min: =b; a: =a+1 end; #2) readln(n); for i: =1 to n do begin readln(a); if (min> a) and (a mod 15=0) and (a> 0) then min: =a; end; b: =a div 15; writeln(min, ' ', b); #3) if (a> b) then begin writeln('a'); end else begin writeln(b); end; readln(); end. заранее : )

Answer 1

Первая программа:
В ней ты вводишь число Б с клавиатуры,и проверяешь через цикл является ли б минимальным числом,если введённое б<32000,то оно-минимальное
Вторая:
Вводишь н для количества повторений цикла
Пока не дошло до числа н, вводишь  с клавиатуры А,далее каждое А проверяется на условия: минимальное число(32000 по условию)>а,а делится на пятнадцать без остатка,а>0, если все эти условия соблюдены,то а-минимальное число.
Без цикла проверяет остаток от деления числа А на 15 и записывает остаток от деления в переменную Б
Выводит на экран минимальное число и значение переменной Б
Третья:
Проверяет условие: переменная А больше Б,если да,то выводит на экран переменную А,если нет-то выводит на экран переменную Б