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

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

Витек Митулин 2019-08-21 06:06:25

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

Gamirullin Danil 2019-08-21 06:11:45

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

Никита Серож 2019-08-21 06:15:58

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