Question

Срочно! Помогите найти ошибку в программе... (не читает паскаль) 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

Answer 1

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

Пример:
программа, вычисляющая п-е число Фибоначчи
n=7
n-е число Фибоначчи:13

Answer 2

Та не стояли пару ; ток вроде сама прога не правильная она не правильно выводит числа я вторым скрином приложу еще свою прогу написанную по этой задачи