Напишите программу которая вводит с клавиатуры 10 чисел и вычисляет их сумму и произведение

pascal

Question

Информатика

Агриппа

12 августа, 02:28

Напишите программу которая вводит с клавиатуры 10 чисел и вычисляет их сумму и произведение

pascal

+4

Ответы (1)

Знаете ответ на вопрос?

Сюта · Answer 1

Var i: byte;

sum, n:integer;

pro:longint;

begin

sum:=0;

pro:=0;

for i:=1 to 10 do

begin

write ('Введите ', i, 'число') ;

readln (n) ;

sum:=sum+n;

pro:=pro*n;

end;

writeln ('Сумма введенных чисел - ', sum) ;

writeln ('Произведение: ', pro) ;

end.

Напишите программу которая вводит с клавиатуры 10 чисел и вычисляет их сумму и произведениеpascal

Напишите программу которая вводит с клавиатуры 10 чисел и вычисляет их сумму и произведение

pascal