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

Question

Информатика

Ая

11 марта, 01:30

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

+4

Ответы (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.