program p1;
begin
for var i := 100 to 999 do begin
if (i mod 5 = 0) and (i mod 3 <> 0) then writeln(i);
end;
end.
Объяснение:
PascalABC.NET
КУМИР
Примеры работ:
program p1;
begin
for var i := 100 to 999 do begin
if (i mod 5 = 0) and (i mod 3 <> 0) then writeln(i);
end;
end.
Объяснение:
PascalABC.NET