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

Ответ:

program z1;

var i:integer;

begin

for i:=20 to 50 do

if (i mod 3 = 0) and (i mod 5 <> 0) then write (i:4)

end.

Объяснение:

Перебираем числа от 20 до 50 через цикл и проверяем их на соответствие условию.