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

Предыдущий
вопрос Следующий
вопрос

program MaxMultipleOfSeven;
var
number, maxMultipleOfSeven, count: integer;
begin
maxMultipleOfSeven := 0;
count := 0;

repeat
readln(number);

if (number mod 7 = 0) and (number > maxMultipleOfSeven) then
begin
maxMultipleOfSeven := number;
count := 1;
end
else if (number mod 7 = 0) and (number = maxMultipleOfSeven) then
begin
count := count + 1;
end;

until number = 0;

writeln('Количество максимальных кратных семи чисел в последовательности: ', count);
end.