Дана программа которая ищет сумму однозначных чисел, с командой 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.
Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.
Вас заинтересует
1 год назад
2 года назад
2 года назад