Определить все трехзначные числа кртаные 5. Использовать следующий признак: если в числе последние цифра 0 или 5, то число кратно 5- Pascal(Паскаль)

var
i:integer;
begin
for i:=100 to 999 do
if (i mod 10=0) or (i mod 10=5) then
begin
writeln(i,' ');
end;
end.

Похожие записи/страницы: