Подписать все куски программ (что они выполняют): 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. заранее : )

110

330

Посмотреть ответы 2

Ответы на вопрос:

xeniaverner

Информатика

4,5(75 оценок)

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