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

Question

Информатика

Геруха

5 сентября, 08:08

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

+4

Ответы (1)

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

Сашута · Answer 1

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.