Дана последовательность из N целых чисел. Определить произведение элементов этой последовательности.

Question

Дана последовательность из N целых чисел. Определить произведение элементов этой последовательности.

megapixel Знаток (296), закрыт 7 лет назад

решить в Pascal с использованием Оператор цикла WHILE

Answer 1

var i,n,p,x:integer;
begin
write('N=');
readln(n);
i:=1;
p:=1;
while i<=n do
begin
write('Chislo=');
readln(x);
p:=p*x;
inc(i)
end;
writeln('Proizv.=',p)
end.

Answer 2

Анна Глинкина Оракул (63356) 7 лет назад

Begin
Read n;
While n<=чему то do
n=n*n
End.

Answer 3

Паскаль устаревший язык программирования, не советую его использовать.