Вводится последовательность натуральных чисел. Ноль – при- знак конца. Подсчитайте, сколько раз в этой последовательности встре- чается максимальное кратное семи число, и выдайте полученный ре- зультат
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
x, m, k: integer;
begin
m := 0;
k := 0;
read(x);
while x <> 0 do
begin
if x mod 7 = 0 then
if x > m then
begin
m := x;
k := 1
end
else
if x = m then
k := k + 1;
read(x)
end;
write(k)
end.