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

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

Comments

Спасибо большое!

---

знаю, но в школе обычно принято его писать. В задании указано 5-9 класс, так что я пишу как требуют в большинстве школ. Если в школе автора задания так не пишут то он думаю сам догадается не писать эту строку :)

---

заголовок "program" не обязателен для 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.

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