• Срочно! Помогите найти ошибку в программе... (не читает паскаль)

    Program fibonacci;
    Var
    n:byte;
    function fib (n:byte):integer;
    begin
    if n>2
    then fib:=1;
    end;
    begin
    writeln('программа, вычисляющая п-е число Фибоначчи')
    write('n=')
    readln(n);
    write('n-е число Фибоначчи:',fib(n));
    end

Ответы 2

  • та не стояли пару ; ток вроде сама прога не правильная она не правильно выводит числа я вторым скрином приложу еще свою прогу написанную по этой задачи 
    answer img
  • Program fibonacci;Varn:byte;function fib (n:byte):integer;beginif n<=2 then fib:=1else fib:=fib(n-2)+fib(n-1);end;beginwriteln('программа, вычисляющая п-е число Фибоначчи');write('n=');readln(n);write('n-е число Фибоначчи:',fib(n));end.Пример:программа, вычисляющая п-е число Фибоначчиn=7n-е число Фибоначчи:13
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years