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

Program dj;

Var x, y:integer;

begin

y:=0;

x:=1;

while x<10 do

begin

y:=x+y;

x:=x+1;

write (y) ;

end.

Question

Настюня

19 декабря, 08:22

+3

Ответы (1)

Знаете ответ на вопрос?

Людаша · 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.

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