Предмет: Информатика,
автор: Эля201204
составить программу: даны 10 чисел. Найти их произведение.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!
Эля201204:
На языке Паскаль
Ответы
Автор ответа:
1
import functools
import operator
print(functools.reduce(operator.mul,[int(input()) for i in range(10)]))
Спасибо, но мне на языке Паскаль надо
program Solution;
var a:Integer;
var i:Integer;
var r:Longint;
begin
r:=1;
for i:=1 to 10 do
begin
read(a);
r:=r*a;
end;
writeln(r);
end.
var a:Integer;
var i:Integer;
var r:Longint;
begin
r:=1;
for i:=1 to 10 do
begin
read(a);
r:=r*a;
end;
writeln(r);
end.
Похожие вопросы
Предмет: Українська мова,
автор: nkisulya
Предмет: Русский язык,
автор: евалатыш
Предмет: Английский язык,
автор: жорапопугай
Предмет: Математика,
автор: vsa19791
Предмет: Математика,
автор: кисамяу9