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