Демид
6 год назад
Помогите составить программу, которая считает количество всех 3-ехзначных чисел, которые деляться на 20
ОТВЕТЫ
Nega
Aug 11, 2019
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.
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.
29
Смежные вопросы:
