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

pascal

Question

Информатика

Петряха

25 июля, 09:10

Напишите программу которая вводит с клавиатуры 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