Вопрос по информатике:
Найти произведение P=2^3*4^3*6^3*8^3...Умножение выполнять до тех пор пока множитель не станет больше 500.
Пожаловаться
- 16.08.2018 11:34
- Информатика
- remove_red_eye 9518
- thumb_up 17
Ответы и объяснения 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
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
Пожаловаться
- 17.08.2018 07:03
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы