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

strong123 strong123    1   17.05.2019 15:49    0

Ответы
AndrewGuyGuyson AndrewGuyGuyson  17.05.2019 17:00

можешь не

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика