ПАСКАЛЬ подсчитать количество трёхзначных чисел кратных 50
Ответы на вопрос
Ответил 1Анонимчик
0
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.
вроде бы так
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.
вроде бы так
Новые вопросы
История,
2 года назад
Литература,
10 лет назад
Алгебра,
10 лет назад
Математика,
10 лет назад
Алгебра,
10 лет назад