var
n: integer;
function fibonachi(n: integer): integer;
begin
if (n = 1) or (n = 2) then fibonachi := 1
else fibonachi:= fibonachi(n - 1) + fibonachi(n - 2);
end;
begin
read(n);
writeln('F(', n, ') = ', fibonachi(n));
end.
------------------------------------------------------
var
n, i: integer;
a: array [1..3] of longint;
begin
read(n);
a[2] := 1;
a[3] := 1;
for i := 3 to n do
begin
a[1] := a[2];
a[2] := a[3];
a[3] := a[2] + a[1];
end;
writeln('F(', n, ') = ', a[3]);
end.
<span>Решение: N<span> = 29 = 512.</span></span>
Ответ: <span>диапазон чисел имеет значение от 1 до 512</span>
var c:char; i:integer;
begin
writeln('Mujchina ili jenshina?(M/J)');
readln(c);
writeln('Vozrast');
readln(i);
if (c='M') or (c='m') then writeln('Vash vibor - ',(i div 2 + 7))
else writeln('Vash vibor - ', (2*i-14) );
end.
Расположи героев сказок бабушка,внучка,волк,дедушка,заяц,кошка,курица,лиса,медведь,мышка,собака в окружностях сплошной границы д
диол9
Репка - бабушка, внучка, дедушка, кошка, мышка, собака.
Колобок - бабушка, дедушка, волк, заяц, медведь, лиса.
Курочка Ряба - бабушка, дедушка, курица, мышка.
В некоторых вариантах еще внучки встречаются.
Круги сами рисуйте, мне в Пайнте это трудно.
Например ребус
три клетки в неё напиши ГАЛ ( выбери мальчика стукни не сильно и скажи отгадай слово)
ответ : ГАлСТУК