Форум Херсона. Форум Херсонской молодежи, флейм, фотографии Херсона, политика в Херсоне, сетевой форум, сети Херсона

Program P2SS;
type
dss=0..1;
var
P:array[1..10000] of dss;
N,K,I:word;
begin
readln(N);
P[1]:=0;
P[2]:=1;
K:=2;
I:=0;
while N>K+I do
begin
if I=K then
begin
I:=1;
K:=2*K
end
else
I:=I+1;
if P[i]=0 then P[K+I]:=1 else P[K+I]:=0
end;
writeln(P[N]);
readln
end.

Program Files;
const M=100;
type arr=1..M;
var N,i,k:arr;
L:array[arr] of word;
Temp:word;
Log:array[arr,1..3] of longint;
T:longint;
begin
readln(N);
for i:=1 to N do
readln(L[i]);
for k:=N-1 downto 1 do
for i:=1 to k do
if L[i]>L[i+1] then
begin
Temp:=L[i];
L[i]:=L[i+1];
L[i+1]:=Temp
end;
T:=0;
for i:=1 to N-1 do
begin
Log[i,1]:=L[i];
Log[i,2]:=L[i+1];
Temp:=L[i]+L[i+1];
Log[i,3]:=Temp;
T:=T+Temp;
k:=i+1;
while (k<N) and (Temp>L[k+1]) do
begin
L[k]:=L[k+1];
k:=k+1
end;
L[k]:=Temp;
end;
writeln(T);
for i:=1 to N-1 do
begin
for k:=1 to 3 do write(Log[i,k]:7);
writeln
end;
readln
end.

program Fib01;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
  n  : Integer;
  Fn : Extended;
  Fi_p, fi_n : Real;
begin
  Write('Give me "n" pal : = ');
  try
    Readln(n);
    try
      Fi_p := 0.5 * (1 + sqrt(5)); // золотое сечение
      fi_n := 0.5 * (1 - sqrt(5)); // -1/золотое сечение
      Fn := (1/sqrt(5))*(Math.Power(Fi_p, n) - Math.Power(fi_n, n)); // выведенная методом индукции Эйлером (Бине)
    except
      on E:Exception do Exit;
    end;
  except
    on E:EInOutError do begin
      Writeln('You motherfucker, give me number next time');
      Write('Press "Enter" to exit...');
      Readln;
      Exit;
    end;
  end;
  Writeln('Fn(' + IntToStr(n) + ')' + '= ' + FloatToStr(Fn));
  Write('Press "Enter" to exit...');
  Readln;
end.

Function Fibo(i:byte):longint;
begin
if i<3 then Fibo:=1 else
Fibo:=Fibo(i-2)+Fibo(i-1)
end;