Grand Terraceпроверьте дана последовательность чисел, сначала вводятся количество цифр в последовательности, а затем сами числа. Найти в этой последовательности максимальное число кратное 3. program nast;Var n;k;max:Integer;begin k:=0;repeat Write('введите число');Readln(n);if(n mod 3=0) and (n>max)then k:=nend;until n=0;WriteLn('количество чисел кратнных 3')end.
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
Я немного подправил твою программу. Переменные в разделе var, имеющие одинаковый тип, перечисляются через запятую, а не через точку с запятой. Также, я убрал лишний end; и добавил в последний writeln() вывод переменной, в которой хранится максимальное число кратное 3.
program nast;
435
Elizabeth RiceЧтобы ответить необходимо зарегистрироваться.
