вывести все двузначные числа, кратные 3 (написать 2 программы, одна с цикла for , вторая с

1.

program z1;

var i:integer;

begin

for i:=10 to 99 do

if i mod 3 = 0 then write (i,' ')

end.

2.

program z2;

var i:integer;

begin

i:=10;

while i<= 99 do

begin

if i mod 3 = 0 then write (i,' ');

i:=i+1

end

end.

Объяснение:

В цикле for переменная-счётчик автоматически увеличивается на шаг +1

В цикле while приходиться изменение переменной прописывать, зато шаг можно выбрать любой