Помогите решить задачки циклом Repeat, Решение задач. Опции

[Гость_Андрей]

1. Произведение N первых нечётных чисел равно p. Cколько сомножителей взято?
2. Определить 40-е число Фибоначчи.
Поиск первого числа Фибоначчи, большего m(m+1);
Вычисление суммы всех чисел Фибоначчи, которые не превослодять 1000.

[klem4]

1. Произведение N первых нечётных чисел равно p. Cколько сомножителей взято?

есть произведение N членов, то кол-во сомножителей разьве не N ???

[Гость_Андрей]

Ты напутал.Н - это количество умноженных друг на друга нечётных. А сомножетелей может быть как больше так и меньше.

[Гость_Андрей]

Мы то Н не знаем изначально.

[volvo]

Гость_Андрей
А пример, где число сомножителей не равно N можно? Желательно, и тот где сомножителей больше, и тот, где меньше...

[Гость_Андрей]

К сожалению число сомножителей должно равняться Н.

[volvo]

есть произведение N членов, то кол-во сомножителей разьве не N

Не это ли было сказано выше?

[Гость_Андрей]

прошу прощения, не так прочитал. Да, он прав !!!

[Altair]

перенесенно в "задачи".

[trminator]

1. Произведение N первых нечётных чисел равно p. Cколько сомножителей взято?

Чтобы понятнее: дано произведение N первых нечетных чисел. Вопрос: чему равно N?

Код

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.

А чтобы не было совсем халявы тут не предусмотрен вариант, что ответа нет (введу я, например, 16, а мне выдаст - 3). Допиши сам

[Юляшка]

2. Определить 40-е число Фибоначчи.

Код

program fibonaacci;
uses wincrt;
var f0,f1,fn:longint;
   n,i:word;
begin
readln(n);
f0:=0; f1:=1;
write (f0:10,f1:10);
for i:=3 to n do
begin
fn:=f0+f1;
f0:=f1; f1:=fn;
write (fn:10);
end;
end.

Выводит числа Фибоначчи с 1ого до n-ого
если модернизировать,то будет считать все что нужно

[Altair]

если модернизировать,то будет считать все что нужно

А именно вот так:

Код

uses wincrt;
var f0,f1,fn:longint;
   n,i:word;
begin
n:=40;
f0:=0; f1:=1;
for i:=3 to n do
begin
fn:=f0+f1;
f0:=f1; f1:=fn;
end;
write (fn:10);
end.

Код для BWP или TPW, для запуска в BP или TP, замените Wincrt на crt ...

[Юляшка]

Ну да. я это и имела в виду! :no:

[-Андрей_*]

Спасибо ребята большое!

[Анатолий]

Уважаемые, дайте плз линк для скачивания паскаля под виндовс !!! Система ХП. Всё было неплохо но внезапно при запуске дос - приложений винда пишет: C:\windows.000\system32\autoexec.nt. The system file is not suitable for running MS-DOS and Microsoft applications. Choose `Close` to terminate the application. Фар не помогает. Что делать ? Выручайте ! Без паскаля умру =)

[volvo]

Анатолий
Смотрите здесь, этот вопрос поднимался:
http://pascal.dax.ru/forum2/index.php?show...indpost&p=24680
В следующий раз попробуйте воспользоваться поиском... ;)