uses
crt;
function Fib(n : byte) : longint;
begin
If (n=0) or (n=1) then Fib := 1
else Fib := Fib(n-1) + Fib(n-2);
end;
var
n : byte;
begin
clrscr;
writeln('f(40) = ',Fib(40));
readln;
end.
Ответ. Прежде всего, ценились отвага и сила (прославляли идеальных рыцарей, которые могли рукой выжать сок из свежесрезанной ветки или одним ударом разрубить пополам человека вместе с лошадью). Также ценилась верность сеньору. Именно измена сеньору считалась наибольшим бесчестьем для рыцаря. Со временем стало цениться учтивое отношение к дамам. Рыцарь выбирал себе даму сердца и служил ей также верно, как сеньору. Кроме всего этого рыцарь обязан был проявлять великодушие во время боя и щедрость в мирной жизни. Это те качества, которые отличали феодалов от других сословий. Но были и обязательные для всех сословий качества, например верность догмам католической церкви.
Ответ. Прежде всего, ценились отвага и сила (прославляли идеальных рыцарей, которые могли рукой выжать сок из свежесрезанной ветки или одним ударом разрубить пополам человека вместе с лошадью). Также ценилась верность сеньору. Именно измена сеньору считалась наибольшим бесчестьем для рыцаря. Со временем стало цениться учтивое отношение к дамам. Рыцарь выбирал себе даму сердца и служил ей также верно, как сеньору. Кроме всего этого рыцарь обязан был проявлять великодушие во время боя и щедрость в мирной жизни. Это те качества, которые отличали феодалов от других сословий. Но были и обязательные для всех сословий качества, например верность догмам католической церкви.
crt;
function Fib(n : byte) : longint;
begin
If (n=0) or (n=1) then Fib := 1
else Fib := Fib(n-1) + Fib(n-2);
end;
var
n : byte;
begin
clrscr;
writeln('f(40) = ',Fib(40));
readln;
end.