СРОЧНО!! дана последовательность из 10 чисел. Найти произведение этой последовательности. Вести каждое произведение на экран(параметр)
СРОЧНО!!
дана последовательность из 10 чисел. Найти произведение этой последовательности. Вести каждое произведение на экран(параметр)
Гость
Ответ(ы) на вопрос:
Гостьvar a, p, i:integer;
begin
writeln('Введите 10 чисел:');
p:=1;
for i:=1 to 10 do
begin
readln(a);
p:=p*a;
writeln('p = ',p);
end;
end.
Пример:
Введите 10 чисел:
2
p = 2
5
p = 10
3
p = 30
1
p = 30
6
p = 180
4
p = 720
8
p = 5760
2
p = 11520
7
p = 80640
9
p = 725760
Не нашли ответ?
Похожие вопросы