Cоставте программу которая вычесляет произведение 10 произвольных целых двухзначных чисел (Цикл с предусловием, Pascal)

Question

Информатика

Анжелика

4 января, 00:11

Cоставте программу которая вычесляет произведение 10 произвольных целых двухзначных чисел (Цикл с предусловием, Pascal)

+1

Ответы (2)

Знаете ответ на вопрос?

Андреич · Answer 1

Var x, y, z:longint;

begin

z:=10;

y:=1

while z>0

begin

z:=z-1;

read (x) ;

y:=x*y;

end;

write (y) ;

end.

Алеха · Answer 2

Var

a: array[1 ... 10] of integer;

i, s:integer;

begin

for i:=1 to 10 do

read (a[i]) ;

i:=1;

s:=1;

while i<=10 do begin

s:=s*a[i];

inc (i) ;

end;

writeln (s) ;

end.