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.
744 бита (.................)
var
a, b, c: real;
begin
Read(a, b, c);
Write((ord(a > 0) + ord(b > 0) + ord(c > 0)) = 1)
end.
Begin
writeln('Привет, начинающий программист, тебя приветствует Pascal');
end.
Вавило́нская ба́шня — легендарная башня, которой посвящено библейское предание, изложенное в 11 главе книги Бытие. Согласно этому преданию, после Всемирного потопа человечество было представлено одним народом, говорившим на одном языке. С востока люди пришли на землю Сеннаар (в нижнем течении Тигра и Евфрата), где решили построить город, названный Вавилоном, и башню до небес, чтобы «сделать себе имя». Строительство башни было прервано Богом, который создал новые языки для разных людей, из-за чего они перестали понимать друг друга, не могли продолжать строительство города и башни и рассеялись по всей земле. Таким образом, история о Вавилонской башне объясняет появление различных языков после Всемирного потопа.
