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

Question

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

Comments

Сума множителей или именно множитель?

---

множитель

---

А смысл с программы какой?

---

найти произведение пока оно не станет больше 500

---

я тож не понимаю

---

ысл

---

смысл

Answer 1

Var a,m:integer; p:real;
begin
p:=1;
a:=0;
m:=0;
while m<=500 do<br> 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