Найти произведение нечётных чисел от 1 до n, где n <= 10 и вводится с клавиатуры.

@dencil · Регистрация: 23.09.2013

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

Найти произведение нечётных чисел от 1 до n, где n <= 10 и
вводится с клавиатуры.

@ildwine · 29.10.2013, 09:05

Pascal

var
  i, n, p : integer;
begin
  repeat
    write('введите n: ');
    readln(n);
  until (n > 0) and (n <= 10);
  p := 1;
  for i := 1 to n do
    if odd(i) then p := p * i;
  writeln('произведение нечетных чисел от 1 до ', n, ' = ', p);
  readln
end.

@dencil 10 / 10 / 22 Регистрация: 23.09.2013 Сообщений: 145
		1
	Найти произведение нечётных чисел от 1 до n, где n <= 10 и вводится с клавиатуры. 28.10.2013, 19:57. Показов 3400. Ответов 1 Метки нет (Все метки) Найти произведение нечётных чисел от 1 до n, где n <= 10 и вводится с клавиатуры. 0

	29.10.2013, 09:05

Найти произведение нечётных чисел от 1 до n, где n <= 10 и вводится с клавиатуры.

Решение