Автор Sdfsdf ... задал вопрос в разделе Другие языки и технологии
информатика паскаль. и получил лучший ответ
Ответ от -Egor-[гуру]
есть рекурентный алгоритм для чисел фибоначи .Поищи в wikipedia.org там есть пример на паскале
Ответ от Їак Норрис[гуру]
НОД оне же GDC (Greatest common divisor)
{Greatest common divisor}
Program GCD;
Var
x, y : Integer;
begin
read(x);
While x <> 0 do
begin
read(y);
While x <> y do
if x > y then
x := x - y
else
y := y - x;
Write(x);
read(x);
end;
end.
Фибоначчи
{
>The problem is to Write a recursive Program to calculate Fibonacci numbers.
>The rules For the Fibonacci numbers are:
>
> The Nth Fib number is:
>
> 1 if N = 1 or 2
> The sum of the previous two numbers in the series if N > 2
> N must always be > 0.
}
Function fib(n : LongInt) : LongInt;
begin
if n < 2 then
fib := n
else
fib := fib(n - 1) + fib(n - 2);
end;
Var
Count : Integer;
begin
Writeln('Fib: ');
For Count := 1 to 15 do
Write(Fib(Count),', ');
end.
НОД оне же GDC (Greatest common divisor)
{Greatest common divisor}
Program GCD;
Var
x, y : Integer;
begin
read(x);
While x <> 0 do
begin
read(y);
While x <> y do
if x > y then
x := x - y
else
y := y - x;
Write(x);
read(x);
end;
end.
Фибоначчи
{
>The problem is to Write a recursive Program to calculate Fibonacci numbers.
>The rules For the Fibonacci numbers are:
>
> The Nth Fib number is:
>
> 1 if N = 1 or 2
> The sum of the previous two numbers in the series if N > 2
> N must always be > 0.
}
Function fib(n : LongInt) : LongInt;
begin
if n < 2 then
fib := n
else
fib := fib(n - 1) + fib(n - 2);
end;
Var
Count : Integer;
begin
Writeln('Fib: ');
For Count := 1 to 15 do
Write(Fib(Count),', ');
end.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: информатика паскаль.
спросили в 950 год
ваши отзывы о радиостанции Midland GXT-950
радиостанции надо брать Моторолу... .
уж ты то, человек в погонах должен это
подробнее...
ваши отзывы о радиостанции Midland GXT-950
радиостанции надо брать Моторолу... .
уж ты то, человек в погонах должен это
подробнее...
Какой лобзик лучше выбрать DeWalt DW349 или Bosch Professional GST 8000 E и какой надежней
Я много лет пользуюсь "Фиолент". Когда прочитал на нём "сделано в Украине", то понял, что больше
подробнее...
Кто знает как лобзик Bosch GST 8000 E? Стоит покупать для дома?
Абсолютно бытовая модель, случайно попавшая в синий цвет. Рама и противовес редуктора собраны на
подробнее...
Подскажите, какой выбрать триммер? Кто-нибудь слышал про триммер Huter GGT 1900 T
Да. Тупость продавцов порой просто обескураживает и ошеломляет. Не поддавайтесь. Они явно сейчас
подробнее...
спросили в Техника
Рация Midland GXT 650.Можно ли как то припиzдюрить антенну чтобы увеличить дальность?кто нибудь пробовал?
Врезать разъём можно, но требуется аккуратная и неблагодарная работа по установке BNC разъёма. Нет
подробнее...
Рация Midland GXT 650.Можно ли как то припиzдюрить антенну чтобы увеличить дальность?кто нибудь пробовал?
Врезать разъём можно, но требуется аккуратная и неблагодарная работа по установке BNC разъёма. Нет
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Техника
Как подключить патрон под g23 к сети? Люминисцентную лампу хочу в шкаф поставить/
это лампы содержащие ртуть
не советую их вообще дома иметь
а подключить надо вместе с
подробнее...
Как подключить патрон под g23 к сети? Люминисцентную лампу хочу в шкаф поставить/
это лампы содержащие ртуть
не советую их вообще дома иметь
а подключить надо вместе с
подробнее...
Где закупает компания эти триммерыhttp://
Huter GGT-1500S
WIKIMART.ru (из Москвы) 4 910 р.
← купить
Бензиновый триммер
подробнее...
Кто это?
#yaimg55083#
Эта художественная фотография подназванием «Дрези и Кэзи» сделана в 1993
подробнее...
Правда что в Африке живёт племя пигмеев, или это выдумка?
Пигмеи (от греч. pygmáios - размером с кулак, от pygmé - кулак) , низкорослые обитатели
подробнее...
спросили в NRK
Виртуальный диск. Что это и для чего нужен?
программная эмуляция еще одного CD/DVD привода в системе.. .
Daemon Tools Lite
подробнее...
Виртуальный диск. Что это и для чего нужен?
программная эмуляция еще одного CD/DVD привода в системе.. .
Daemon Tools Lite
подробнее...