Задача на Паскале Вводится последовательность натуральных чисел. Ноль – признак конца. Подсчитайте, сколько раз в этой последовательности встречается максимальное кратное семи число, и выдайте полученный результат.
Задача на Паскале Вводится последовательность натуральных чисел. Ноль – признак конца. Подсчитайте, сколько раз в этой последовательности встречается максимальное кратное семи число, и выдайте полученный результат.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program MaxMultipleOfSeven;
var
number, maxMultipleOfSeven, count: integer;
begin
maxMultipleOfSeven := 0;
count := 0;
repeat
if (number mod 7 = 0) and (number > maxMultipleOfSeven) thenreadln(number);
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.