Question

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

Answer 1

Ответ:

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

Answer 2

КУМИР

• алг Программа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.

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