Дана программа которая ищет сумму однозначных чисел, - вопрос №8300103 от optymus 18.11.2022 22:16

Question

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

optymus · Answer

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