Найти произведение P=2^34^36^3*8^3 ... Умножение выполнять до тех пор пока множитель не станет больше 500.

Question

Информатика

Мая

9 февраля, 01:54

Найти произведение P=2^34^36^3*8^3 ... Умножение выполнять до тех пор пока множитель не станет больше 500.

+2

Ответы (1)

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

Авдотьюшка · Answer 1

Var a, m:integer; p:real;

begin

p:=1;

a:=0;

m:=0;

while m<=500 do

begin

a:=a+2;

m:=a*a*a;

p:=p*m;

end;

writeln (a,'^3 = ', m) ;

writeln ('p = ', p) ;

end.

Результат:

8^3 = 512

p = 5.662310400000000e+07

Найти произведение P=2^3*4^3*6^3*8^3 ... Умножение выполнять до тех пор пока множитель не станет больше 500.

Найти произведение P=2^34^36^3*8^3 ... Умножение выполнять до тех пор пока множитель не станет больше 500.