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

Question

Переделать задачи для 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. Написать в Паскале программу

Answer 1

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

Comments

такое будет только если q=1

---

но у вашем примере q присвоили значение 5 и я написал для конкретного случая

---

если бы вы мне дали полное условие я бы мог переделать целую програму под оператор цыкла for

---

Это и есть полное условие. Переделать программы под оператор for

---

Какие программы ? Она там только одна , просто скопированая 4 раза .

---

А простите

---

я вижу

---

только что заметил

---

сейчас переделаю

---

Хорошо