1. Произведение N первых нечётных чисел равно p. Cколько сомножителей взято?
2. Определить 40-е число Фибоначчи.
Поиск первого числа Фибоначчи, большего m(m+1);
Вычисление суммы всех чисел Фибоначчи, которые не превослодять 1000.
Полная версия: Помогите решить задачки циклом Repeat
Цитата
1. Произведение N первых нечётных чисел равно p. Cколько сомножителей взято?
есть произведение N членов, то кол-во сомножителей разьве не N ???
Ты напутал.Н - это количество умноженных друг на друга нечётных. А сомножетелей может быть как больше так и меньше.
Мы то Н не знаем изначально.
Гость_Андрей
А пример, где число сомножителей не равно N можно? Желательно, и тот где сомножителей больше, и тот, где меньше...
А пример, где число сомножителей не равно N можно? Желательно, и тот где сомножителей больше, и тот, где меньше...
К сожалению число сомножителей должно равняться Н.
Цитата
есть произведение N членов, то кол-во сомножителей разьве не N
Не это ли было сказано выше?
прошу прощения, не так прочитал. Да, он прав !!!
перенесенно в "задачи".
Цитата
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). Допиши сам
Цитата(Гость_Андрей @ 31.01.05 21:42)
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.
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-ого
если модернизировать,то будет считать все что нужно
Цитата
если модернизировать,то будет считать все что нужно
А именно вот так:
Код
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.
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. Фар не помогает. Что делать ? Выручайте ! Без паскаля умру =)
Анатолий
Смотрите здесь, этот вопрос поднимался:
http://forum.pascal.net.ru/index.php?show...indpost&p=24680
В следующий раз попробуйте воспользоваться поиском... ;)
Смотрите здесь, этот вопрос поднимался:
http://forum.pascal.net.ru/index.php?show...indpost&p=24680
В следующий раз попробуйте воспользоваться поиском... ;)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.