93

Дано N-произвольных чисел найти их сумму. Срочно нужно!

14 февраля 2023

Дано N-произвольных чисел найти их сумму. Срочно нужно!

категория: информатика



98

Код программы на Pascal: Program asd; var n,sum,i,a: integer; beginsum: =0; Write ('Введите кол-во чисел'); read (n); For i: =1 to n do begin Write ('Введите число'); read (a); sum: =sum+a; end; Writeln ('Сумма равна',sum); readln; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...