Question

Напишите программу которая в последовательности целых чисел определяет количество трехзначных чисел кратных 7​

Answer 1

Можешь не благодарить

var

a,n:integer;

begin

readln(a);

while a<>0 do

begin

if (a mod 5=0)or (a mod 7=0)then inc(n);

readln(a);

end;

writeln(n);

end.

Answer 2

Все равно спасибо)

Answer 3

Та не за что)

Answer 4

я еще одно задание не могу выложить, потому что баллов не хватает(

Answer 5

печалька(

Answer 6

я уже все, задал вопрос и сдал)