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