Даны натуральные числа от 20 до 50. напечатать те из них, которые делятся ** 3, но не...

Question

Даны натуральные числа от 20 до 50. напечатать те из них, которые делятся на 3, но не делятся на 5.
Программа на Pascal

Comments

21,24,27,33,36,39,42,48.

---

Читай последнее сообщение...

Answer 1

 uses crt;
  var i:integer;
begin 
   For i:=20 to 50 do 
     If (i mod 3=0) and (i mod 5 <> 0) then writeln(i); 
end.

Comments

спасибо. но зачем uses?

---

В силу привычки добавил. Дабы не нажимать 2 раза F9 в abc.