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

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.

вроде бы так

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.