Задание:
С клавиатуры вводится 10 произвольных чисел. Составить блок-схему и программу определения суммы всех вводимыхчисел.
Решение:
Var a,k,c: integer; beginc: =0; for k: =1 to 10 do beginread (a); c: =c+a; end; end.
Знаете другой ответ?
С клавиатуры вводится 10 произвольных чисел. Составить блок-схему и программу определения суммы всех вводимыхчисел.
Var a,k,c: integer; beginc: =0; for k: =1 to 10 do beginread (a); c: =c+a; end; end.
Знаете другой ответ?