Вопрос по информатике:
Помогите в программе Pascal (линейный, ветвление и циклический)
Разработайте схему алгоритма
для вычисления произведения P = (-1) * 2 * (-3) * 4 * (-5)
*... * n. Используйте два цикла: один для вычисления произведения нечетных
чисел P1,
второй - для вычисления произведения четных чисел P2.
- 02.09.2015 22:16
- Информатика
- remove_red_eye 3175
- thumb_up 22
Ответы и объяснения 1
Var
a,n,x,p1,p2:integer;
begin
readln(n);
x:=-1;
a:=0;
p1:=1;
p2:=1;
while abs(a)
a:=(abs(a)+1)*x*(-1);
if abs(a)mod 2=0 then
p2:=p2*a
else
p1:=p1*a;
end;
writeln(p1);
writeln(p2);
end.
- 03.09.2015 16:32
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.