ребят, очень нужна помощь
С клавиатуры вводятся натуральные числа.Конец ввода чисел–0,в подсчет

количества не входит.Вычислить и вывести на экран количество чисел,

кратных 7.

Ответ

Автор - ingr

var

a, n : integer;

begin

repeat

read(a);

if a div 7 = 0 then n += 1;

until a = 0;

writeln(n);

end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.