На вход поступает неизвестное колличество целых чисел, ввод заканчивается нулем. определите количество вводимых чисел

loooowaa loooowaa    2   02.10.2019 21:50    5

Ответы
ppapsd ppapsd  09.10.2020 12:36

Это информатика?

Если да,то

1)var

2)a,n:integer;

3)begin

4)readln(a);

5)while a<>0 do

6)begin

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

9)readln(a);

10)end;

11)writeln(n);

12)end.

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