ашпшплщ
30.04.2021 02:14

Дана программа которая ищет сумму однозначных чисел, с командой 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.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
tapilina92
29.04.2020 02:48
2) Program dj;
Var x,y:integer;
begin
y:=0;
for x:=1 to 9 do 
begin
y:=x+y;
write (y);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота