Вводится последовательность натуральных чисел. Ноль – при- знак конца. Подсчитайте,...

Question

Вводится последовательность натуральных чисел. Ноль – при- знак конца. Подсчитайте, сколько раз в этой последовательности встре- чается максимальное кратное семи число, и выдайте полученный ре- зультат.

Comments

Сто первый раз задачи с этими нуль-терминированными вводами

Answer 1

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.