![](/img/avatar.jpg)
Люди, пожалуйста, очень надо!!! Помогите подписать все куски программ построчно (что они выполняют) подписать только куски под номерами 1, 2, 3:
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.
![](/img/avatar.jpg)
#1) в цикле считываем значения с клавиатуры, если значение меньше переменной b то заносим его в переменную min. Цикл повторяется 6 раз
#2) считываем значение n, отвечающие за количество обходов в цикле for. В цикле считываем значения в переменную a, затем проверяется следующие условие: «если ((min больше а) и (а делится на 15 без остатка) и (а больше нуля)) то заносим значение переменной а в переменную min. Цикл повторяется n раз.
После цикла, переменной b присваевается значение, полученное после деления нацело переменной а на 15.
Выводим переменную min и через пробел переменную b.
#3) Определяем и выводим наибольшую из переменных a и b.
![](/img/qu.jpg)
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Найти другие ответы![](/img/avatar.jpg)
Информатика, опубликовано 08.11.2018
В ячейку С6 записать формулу, которая выражение А4+А5-А6 делит на сумму чисел А7 и А8.
![](/img/avatar.jpg)
Информатика, опубликовано 08.11.2018
Напишите программу в паскале по этой блок-схеме. Умоляю
20 баллов
![](/img/avatar.jpg)
Информатика, опубликовано 08.11.2018
Сколько цифр 1 в двоичном представлении десятичного числа 12
![](/img/avatar.jpg)
![](/img/avatar.jpg)
Информатика, опубликовано 08.11.2018
Помогите пожалуйста очень очень надо плис как это сделать объясните