Вывести на экран все трёхзначные числа, которые делятся на 5, и не делятся на 3. (Желательно на кумире, но подойдет и паскаль).

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.

Примеры работ: