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

Question

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

Answer 1

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.