Исправьте ошибки пожалуйста Pascal! Линейные алгоритмы. Пара кроликов каждый год дает приплод двух самку и самца которые через 2 месяца способны давать

1 Январь 0001



Исправьте ошибки пожалуйста Pascal!Линейные алгоритмы.Пара кроликов каждый год дает приплод двух (самку и самца) которые через 2 месяца способны давать новый приплод. Сколько кроликов будет через год

program uses crt{Пара кроликов каждый год дает приплод двух (самку и самца)кот.через 2месяца способны давать новый приплод.Ск-ко кроликов будет через год.}

var k : integer

function f(n:integer):integer

begin if n=0

then f=1



elsey if n=1

then f=2

elsey f=f(n-2)+f(n-1)

end

begin for k=10 to 12 do

writeln(f(k))

redln

end.

  • uses crt;{Ia?a e?ieeeia ea?aue aia aaao i?eieia aaoo (naieo e naioa)eio.?a?ac 2ianyoa niiniaiu aaaaou iiaue i?eieia.Ne-ei e?ieeeia aoaao ?a?ac aia.}
    var k : integer;
    function f(n:integer):integer;
    begin if n=0
    then f:=1
    else if n=1
    then f:=2
    else f:=f(n-2)+f(n-1);
    end;
    begin for k:=10 to 12 do
    writeln(f(k));
    readln;
    end.



    вот если просто исправить ошибки









Информатика

Комментарии закрыты.