Дана программа которая ищет сумму однозначных чисел, с командой While исправьте её **...

Question

Дана программа которая ищет сумму однозначных чисел, с командой While исправьте её на программу с командой For
Program dj;
Var x,y:integer;
begin
y:=0;
x:=1;
while x<10 do <br> begin
y:=x+y;
x:=x+1;
write (y);
end.

Comments

Тебе только это? 3,4,5 надо?

---

щас задаю вопросы отдельно, так удобнее

---

щас задам ещё один с остальными

Answer 1

2) Program dj;
Var x,y:integer;
begin
y:=0;
for x:=1 to 9 do 
begin
y:=x+y;
write (y);
end.

Comments

https://znanija.com/task/26597949

---

спасибо большое