Решения задач acmp.ru
Главная
Вход
Регистрация
Воскресенье, 27.09.2020, 13:08Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0271 Числа Фибоначчи - 2

Скачать файл можно после просмотра рекламы:

04.06.2012, 17:35
var A:array [1..1001] of longint;
n,i:longint;
r,s:integer;
f1,f2:text;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,n);
a[1]:=1;
a[2]:=1;
r:=0;
s:=0;
for i:=3 to 1000 do
  begin
    A[i]:=A[i-1]+A[i-2];
    if a[i]=n then
    begin
    r:=1;
    s:=i;
    end;
  end;
if r>0 then
begin
writeln(f2,r);
writeln(f2,s);
end
else writeln(f2,r);
close(f1);
close(f2);
end. 
Категория: Pascal | Добавил: shum
Просмотров: 2240 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020