Вводится последовательность натуральных чисел. Ноль – при- знак конца. Подсчитай?
Вводится последовательность натуральных чисел. Ноль – при- знак конца. Подсчитай??е, сколько раз в этой последовательности встре- чается максимальное кратное семи число, и выдайте полученный ре- зультат.
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы