Переделать задачи для for 1) q:=5; d:=1; while q>0 do begin d:=d+q; dec (q) end; writeln (q,' ', d); 2) q:=5; d:=1; while q>0 do begin dec (q); d:=d+q end; writeln (q,' ', d); 3) q:=5; d:=1; while q>0 do dec (q); d:=d+q; writeln (q,' ', d); 4) q:=5; d:=1; while q>0 do d:=d+q; dec (q); writeln (q,' ', d);

P. S. Написать в Паскале программу

1) var i, d, q:integer;

begin

d:=1;

for q:=5 downto 1 do {можно и for q:=1 to 5 do но у вашем примере идет на спад, я сделал так же}

d:=d+q;

writeln (q,' ', d);

end.

2) var i, d, q:integer;

begin

d:=1;

for q:=4 downto 1 do

d:=d+q;

writeln (q,' ', d);

end.

3) Здесь вовсе не нужен цикл, всеравно переменная станет 1 (еденицей)

var i, d, q:integer;

begin

d:=1;

q:=1;

d:=d+q;

writeln (q,' ', d);

end.

4) Будет зацикленость, поскольку не зименяется значение q (либо ошибка в условии)

А так как нет изменений то и переработать нельзя в цикл for