В программе Pascal ABC составьте программу, которая вычисляет произведение n чисел вводимых с клавиатуры.
Answers & Comments
Sergius5796
Var sum, k, n, i: integer; begin sum := 0; write('n: '); readln(n); for i := 1 to n do begin readln(k); sum := sum + k; end; writeln('sum = ', sum); end.
Answers & Comments
sum, k, n, i: integer;
begin
sum := 0;
write('n: ');
readln(n);
for i := 1 to n do
begin
readln(k);
sum := sum + k;
end;
writeln('sum = ', sum);
end.