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
КУМИР
алг Программа1 нач цел а нц для а от 100 до 999 если mod(а,5) = 0 и mod(а,3) <> 0 то вывод а, ' ' все кц конPascalABC.NET
begin for var i := 100 to 999 do if (i mod 5 = 0) and (i mod 3 <> 0) then Print(i) end.Примеры работ: