Вводится последовательность натуральных чисел. Ноль – при- знак конца. Подсчитайте, сколько раз в этой последовательности встре- чается максимальное кратное семи число, и выдайте полученный ре- зультат.
Pascal
//В задании не сказано, что выводить, когда нет чисел, кратных 7, поэтому я вывожу 0.
var a, max:longint;
begin
max:=0;
a:=1;
while a <> 0 do
begin
readln(a);
if (a mod 7=0)and(a>max) then max:=a;
end;
writeln(max);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
