оператор цикла repeat

@777FREE · Регистрация: 14.01.2010

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

последняя задача не могу ни как решение найти...
произведение первых n нечетных чисел равно P.
определить - сколько сомножетелей взято? Написать программу с использованием оператора цикла Repeat

@Puporev · 21.06.2010, 20:26

Pascal

uses crt;
var p,q:longint;
    i,k:byte;
begin
clrscr;
write('Введите число, произведение первых N нечетных чисел P=');
readln(p);
if p=1 then write('n=1')
else
 begin
  i:=1;
  q:=1;
  k:=1;
  repeat
  i:=i+2;
  q:=q*i;
  k:=k+1;
  until q>=p;
  if q=p then write('N=',k)
  else write('Число Р не произведение первых нечетных чисел!');
 end;
readln
end.

@777FREE · 21.06.2010, 20:41 **[ТС]**

Pascal

program proizv;
var p : integer; {Дано}
   n : integer; {Найти}
   cur, cur_p : integer; {в cur - текущий множитель (нечетное число), в cur_p - текущее произведение}
begin
   readLn(p);
   cur := 1; cur_p := 1; n := 0;
   repeat
       cur_p := cur_p * cur;
       inc(n);
       cur := cur + 2;
   until cur_p >= p;
   writeLn(n)
end.

вот эта задача больше подходит.

@Puporev · 21.06.2010, 22:52

777FREE, Эти 2 программы написаны почти 1:1. Но у меня есть проверка на недопустимое число, а во второй нет. Например введешь число 16 и получишь ерунду.
А ты, если не обладаешь достаточным количеством извилин, в арбитры не лезь. Сунься еще на форум, я тебе напишу программу.

@777FREE · 21.06.2010, 22:58 **[ТС]**

я не являюсь специалистом в этих программах, а выложил 2 программу для сравнения просто не правильно выразился. а за твою программу спасибо

@777FREE 1 / 0 / 0 Регистрация: 14.01.2010 Сообщений: 8
		1
	оператор цикла repeat 21.06.2010, 20:17. Показов 1664. Ответов 4 Метки нет (Все метки) последняя задача не могу ни как решение найти... произведение первых n нечетных чисел равно P. определить - сколько сомножетелей взято? Написать программу с использованием оператора цикла Repeat 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.06.2010, 22:52	4
	777FREE, Эти 2 программы написаны почти 1:1. Но у меня есть проверка на недопустимое число, а во второй нет. Например введешь число 16 и получишь ерунду. А ты, если не обладаешь достаточным количеством извилин, в арбитры не лезь. Сунься еще на форум, я тебе напишу программу. 0

@777FREE 1 / 0 / 0 Регистрация: 14.01.2010 Сообщений: 8
	21.06.2010, 22:58 [ТС]	5
	я не являюсь специалистом в этих программах, а выложил 2 программу для сравнения просто не правильно выразился. а за твою программу спасибо 0

Опции темы