Напишите программу, которая вводит натуральное число n , затем – n целых чисел, и вычисляет их сумму и произведение

maximyakimov20p00ywe maximyakimov20p00ywe    1   01.10.2019 05:30    36

Ответы
lesenok277 lesenok277  09.10.2020 07:07

Программа на паскале, не знаю какой язык тебе нужен

Var

n,s,p,i:integer;

Begin

read(n);

s:=0;

p:=1;

For i:= 1 to n do begin

read(n);

s:=s+i;

p:=p*i;

end;

write('Сумма равна: ',s,', Произведение равно: ',p);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика