Паскваль Вычислите n чисел Фибоначи:F1=1; F2=1;...;Fn=Fn-1+Fn-2, например: F3=F2+F1=1+1=2,F4=2+1=3 b т.д.
5-9 класс
|
var n:longint;
function f(n:integer):longint;
begin
if (n=1)or(n=2) then f:=1 else
f:=f(n-1)+f(n-2);
end;
begin
write("Vvedite poziciu chisla: ");
read(n);
write("chislo ryada na dannoy pozicii ravno ",f(n));
end.
Другие вопросы из категории
количество введенных данных неизвестно, последовательность чисел заканчивается числом 0. На Паскале
символов. Какое количество информации содержится на каждом носителе? Какое количество информации заключено во всем своде законов?
упаковок плитки потребуется для того, чтобы выложеть ею пол в ванной комнате прямоугольной формы размером а см на б см
Читайте также
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
Количество? Какое начальное значение должно быть у переменной, в которой накапливаем произведение чисел? Как записывается команда цикла, в которой счетчик цикла уменьшается? Можно ли изменять значение верхней границы цикла в теле цикла? Можно ли в теле цикла использовать команду сравнения