Помогите составить программу, которая считает количество всех 3-ехзначных чисел, которые деляться на 20

Question

Горгония

14 марта, 04:11

+4

Ответы (1)

Знаете ответ на вопрос?

Христоша · Answer 1

Var

n, i: integer;

sr: real;

begin

n:=0;

for i:=100 to 999 do if (i mod 20) = 0 then n:=n+1;

writeln ('cisel=', n) ;

end.