Question

Разработать программу, которая определяет количество чисел, которые кратны 7. Числа вводятся клавиатуры. Количество их неизвестно. Замыкает последовательность 0.

Answer 1

Программа написана на PascalABC.NET

В программе используется правило, что ноль не кратен ни одному числу.

//ниже код:

program kratnost;

var a, b, i: integer;

begin  b:=1;  while b <> 0 do    begin      read(b);      if b mod 7 = 0 then        inc(a);    end;      writeln('Ответ: ', a-1);end.