Написать программу, которая вычисляет произведение первых n целых положительных нечетных чисел

@EX · Регистрация: 11.06.2015

Студворк — интернет-сервис помощи студентам

Написать программу, которая вычисляет произведение первых n целых положительных нечетных чисел. Количество чисел должно вводится во время работы программы (используя цикл с параметром).
Нужно решить программу тремя способами цикл с предусловием и цикл с постусловием.

@Ev[G]eN · 15.04.2012, 11:07

Pascal

var
  Proizv: LongInt;
  n, i: Integer;
begin
  Proizv:=1;
  write('N: ');
  readln(n);
  for i:=1 to n do
    if odd(i) then Proizv:=Proizv * i;
  writeln('Произведение (for): ', Proizv);
  Proizv:=1; i:=1;
  while i <= n do
  begin
    if odd(i) then Proizv:=Proizv * i;
    i:=i + 1;
  end;
  writeln('Произведение (while): ', Proizv);
  Proizv:=1; i:=1;
  repeat
    i:=i + 1;
    if odd(i) then Proizv:=Proizv * i;
  until (i = n);
  writeln('Произведение (repeat): ', Proizv);
end.

@EX 0 / 0 / 0 Регистрация: 11.06.2015 Сообщений: 6
		1
	Написать программу, которая вычисляет произведение первых n целых положительных нечетных чисел 15.04.2012, 10:06. Показов 5095. Ответов 1 Метки нет (Все метки) Написать программу, которая вычисляет произведение первых n целых положительных нечетных чисел. Количество чисел должно вводится во время работы программы (используя цикл с параметром). Нужно решить программу тремя способами цикл с предусловием и цикл с постусловием. 0

	15.04.2012, 11:07

Опции темы

Написать программу, которая вычисляет произведение первых n целых положительных нечетных чисел

Решение