Question

из чисел от 1 до 100 вывести те числа, которые делятся на 5 и на 3
составте программу​

Answer 1

Ответ:

var i:integer;

begin

for i:=1 to 100 do begin

if (i mod 5 = 0) and ( i mod 3 = 0) then

writeln(i);

end;

end.

Объяснение: