Паскаль подсчитать количество трёхзначных чисел кратных 50

kudryashovaek kudryashovaek    3   31.05.2019 19:10    1

Ответы
Артём24532523 Артём24532523  02.07.2020 06:53
Program zd;
var
i,n:100..999;
k:integer;
begin
k:=0;
for i:=100 to 999 do
  if i mod 50=0 then
     k:=k+1;
writeln('Количество= ',k);
end.

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