Question

Даны натуральные числа от 20 до 50. Напечатать те из них , которые делятся на 3, но не делятся на 5. В Лазарусе пожалуйста

Answer 1

21 24 27 33 36 39 41 48

Answer 2

1
2
3
4
5
6
7
8
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.