Вычислить сумму и произведение n. натуральных чисел.Предусмотреть ввод n с клавиатуры Паскаль
Вычислить сумму и произведение n. натуральных чисел.Предусмотреть ввод n с клавиатуры Паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы