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 приходиться изменение переменной прописывать, зато шаг можно выбрать любой
На картинках есть всё(один с for, другой с while)
