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

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

Задать свой вопрос
Александр Смогилев
Сума множителей либо конкретно множитель?
Violetta
множитель
Екатерина Могулевская
А смысл с программки какой?
Gena Pridachin
отыскать творенье пока оно не станет больше 500
Грэждян Мирослава
я тож не разумею
Чепкин Николай
ысл
Мушилин Павел
смысл
1 ответ
Var a,m:integer; p:real;
begin
p:=1;
a:=0;
m:=0;
while mlt;=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
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт