Предмет: Информатика,
автор: sergejgrinenko
Вычислить сумму и произведение n. натуральных чисел.Предусмотреть ввод n с клавиатуры Паскаль
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: addison72
Предмет: Алгебра,
автор: balzyasha
Предмет: Математика,
автор: aluatulen12
Предмет: Математика,
автор: Аноним
Предмет: Биология,
автор: Amoril