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

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