tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Числа фибоначчи определяются
Числа фибоначчи определяются следующими формулами: f0=f1=1; fn=fn-1+fn-2, при n> =2 на вход программе подается целое неотрицательное n=< 40 выведите n-е число фибоначчи. массив в программе не использовать
НaИзи
3 16.06.2019 13:10
2
Ответы
яяя489
13.07.2020 09:29
Program gt;
var n,f1,f2,i,f:integer;
begin
readln(n);
f1:=1;f2:=1;
for i:=2 to n do
begin
f:=f1+f2;
f1:=f2;
f2:=f;
end;
writeln(f2);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lavbi3
18.01.2020 22:01
Вы находитесь в квест-комнате по мультфильму wall-e! чтобы выбраться из комнаты, необходимо выполнить такие шаги: 1. узнайте длину строки s текста и выведите это значение...
MaryOnegina
11.09.2019 16:00
Для маски m*.d? ? укажите любые пять имен файлов....
akreb0102
11.09.2019 15:50
Перечислите группы устройств пк и что в них входит...
polavskaya
16.08.2019 20:20
1)дан массив из n элементов, n не больше 30. отсортировать по возрастанию элементы второй половины 2) дан массив из n элементов, n не более 30, n-четное. поменять местами...
ninaemelyanova2
16.08.2019 20:20
Книга состоит из 80 стр.,на каждой стр.512 символов.какой объем в кб занимает книга,если используемый алфавит состоит из 32 символов?...
Елизавета99929
16.08.2019 20:20
Даны два целых числа a и b. напишите программу, которая находит произведение целых чисел от a до b, произведение которых на 6 оканчивается на 2 оброзец 1 10 ввод 14...
vgizovskaya
16.08.2019 20:20
Какие устройства вывода есть в твоем компьютерном классе?...
uhudongoair
16.08.2019 20:20
Информатика. pascal abc. составьте программу ввода элементов массива d [1..6] с клавиатуры и вывода на экран элементов с положительными значениями....
alyonaasd
16.08.2019 20:10
Написать программу в паскале: вывести на экран натуральные чётные числа от 10 до 80(while)....
Гулбахар
16.08.2019 20:10
Выведите на экран первые n1 четных чисел...
Популярные вопросы
с задачей по физике. Вычислите напряжение на контактах конденсатора,...
2
Перепишите текст, раскрывая скобки, вставляя, где это необходимо,...
1
Смотреть прикреплённый файл. У меня получился ответ 19,5 см - верно...
3
О других будешь ноги вытирать или Об других будешь ноги вытирать?...
3
Дядя ваня приобрёл яхту. Он проплыл на ней по течению реки 50 км...
3
1-(x^2-2xy+y^2) 1-a^2-2ab-b^2 4+(-x^2-2xy-y^2)...
3
Чи актуальна казка-притча Казка про яян в наш час?...
2
Надо же 128:2*4 Потому что на знаменатель делим на числитель умножаем...
1
Какой род, число и падеж у местоимений моим и наш. Дам 20б...
3
Рассказ или стих о природе с красивыми описанием.если рассказ то...
2
var n,f1,f2,i,f:integer;
begin
readln(n);
f1:=1;f2:=1;
for i:=2 to n do
begin
f:=f1+f2;
f1:=f2;
f2:=f;
end;
writeln(f2);
end.