Предмет: Информатика, автор: sergejgrinenko

Вычислить сумму и произведение n. натуральных чисел.Предусмотреть ввод n с клавиатуры Паскаль

Ответы

Автор ответа: Gleb1Kosyrev
0
var n,i,ks,kp,h:integer;
begin;
kp:=1;
readln(n);
for i:=1 to n do
begin;
 readln(h);
 kp:=kp*h;
 ks:=ks+h;
end;
writeln('Сумма:',ks);
write('Произведение:',kp);
end.
Похожие вопросы
Предмет: Алгебра, автор: balzyasha