Virahanka(valjda se tako piše) neki stari indijski matematičar,blablablalba, koliko načina na osnovu 2 šablona(L-dužine 1) i (G-dužine 2) može
dobiti proizvoljna duž.

Srećni broj je onaj koji se nakon nekoliko transformacija i to zbirom kvadrata njegovih cifara dođe do broja 1.Ako se ponovo vrati na staro taj broj nije srećan.I sad treba da se nađe najveći srećan broj do proizvoljnog broja(znači do broja koji se unosi u datoteku).

Neka glupost je bila,nemam sad papir kod sebe da to fino napišem,ali uglavnom je bilo nešto sa binarnim ciframa,neki Grejev kod.

Paket ima zapreminu V.Predmeta ima M.Svaki predmet ima svoju zapreminu i cijenu.E sad treba odrediti najveću cijenu koju će paket imati ako se strpaju određeni predmeti u njega.

Tekst bolje da ne pričam,dođe ko roman...

Virahanka je ime jednog starog indijskog matematičara.Virahanka se bavio rješavanjem problema mjerenja duži pomoću dva šablona različite dužine.Kraći šablon,čija je dužina jednaka 1 označavao je sa L,a duži je jednak dužini 2.Duži je označavao sa G.Postoji više načina na koje se može neke dužina predstaviti.

Primjer :
D=1 : L - 1 način
D=2 : LL,G - 2 načina
D=3 : LLL,LG,GL - 3 načina
D=4 : LLLL,LLG,LGL,GLL,GG - 5 načina

program virahanka;
type
niz=array[1..1000] of longint;
var
i,q,d:longint;
N:niz;
begin
  readln (d);
   for i:=1 to d do
    begin
    if i=1 then N[i]:=1
   else
   if i=2 then N[i]:=2
   else
   if i=3 then N[i]:=3
   else
   N[i]:=N[i-1]+N[i-2];
   q:=N[i];
   end;
   writeln (q);
   readln;
   end.

Pretpostavimo da je zadat neki prirodan broj.Ako se izračuna zbir kvadrata cifara tog broja dobije se novi prirodan broj.Postupak ponavljamo sve dok zbir ne postane 1.Tada kažemo da je taj broj srećan.Ako se ne može dobiti 1,tad taj broj nije srećan.
Program treba da odredi koji je najveći srećan broj do broja n koji se unosi,a da je istovremeno manji od unijetog broja.

program sreca;
function kvc(n:string):integer;
var
i,j,zb,br,a:longint;
  begin
  zb:=0;
  begin
   for i:=1 to length(n) do
    begin
    val(n[i],br,a);
    zb:=zb+sqr(br);
    end;
    kvc:=zb;
  end;
  end;
var
i,j,k,x,n,max,zb,p:longint;
ul,il:text;
h,s:string;
begin
  readln (n);
   for i:=1 to n do
    begin
    k:=0;
     str(i,s);
     x:=kvc(s);
      p:=x;
      repeat
      k:=k+1;
      zb:=x;
      str(zb,h);
      x:=kvc(h);
      until (zb=1) or (k>10);
      if (zb=1) and (i>max) and (i<n) then max:=i;
       end;
  writeln (max);
  readln;
  end.

Frank Gray(da,da oni smorni uvodi u zadatak  :)  ) je fizičar poznat po brojnim unapređenjima u oblasti televizije.Patentirao je jedan binarni sistem,koji se po njemu naziva Grejov kod.To je sistem gdje se bilo koja dva uzastopna broja razlikuju u samo jednoj cifri.Danas se ovaj kod koristi za detekciju i korekciju grešaka u nekim TV sistemima.
Treba da se unese prirodan broj N(N<1000000) i K(K<25).Dakle program treba da koduje broj N, sa K bita

program koder;
var
t,grej,bin:string;
zb,l,g,br,i,j,n,k,x,x1:longint;
a:longint;
  begin
   writeln ('Prirodan broj koji treba konvertovati?');
   readln (n);
   writeln ('Koliko bitova?');
   readln (k);
    repeat
    if n>=2 then br:=n mod 2      {konverzija dekadnog u binarni}
    else br:=n;
    n:=n div 2;
    str(br,t);
      bin:=t+bin;                {ide t+bin,jer se rezultat zapisuje od dole,naprema gore}
     until n=0;
l:=length(bin);
  for i:=1 to l do
   begin
    if i>1 then
     begin
    val(bin[i],x,a);               {konverzija stringa u broj}
    val(bin[i-1],x1,a);
    zb:=x+x1;
    if zb=1 then t:='1'               {granicni slucajevi}
    else
    if zb=0 then t:='0'
    else
    if zb=2 then t:='0';
    grej:=grej+t;
    end;
    if i=1 then grej:=grej+bin[i];
     end;
  l:=length(grej);                            {dodavanje nula,odnosno bitova ako nema dovoljno}
  if l<k then
   begin
    repeat
    grej:='0'+grej;
    l:=length(grej);
    until l=k;
    end;
    writeln (grej);
    readln;
  end.

Imamo kutije zapremine V.Na raspolaganju imamo M različitih vrsta predmeta,a svaki predmet karakteriša određena zapremina i cijena.Cilj je da kutiju popunimo svim raspoloživim predmetima i da ostvarimo najvredniji paket.

program pak;
type
paket=record
   zapremina:integer;
   cijena:integer;
   end;
type
niz=array[1..100] of paket;
var
i,max,zb,k,v,m,j:integer;
ul,il:text;
N:niz;
begin
  readln(v,m);
  for i:=1 to m do
   begin
   readln (N[i].zapremina,N[i].cijena);
   end;
   begin
for i:=1 to m do
begin
for j:=1 to m do
begin
  if N[i].zapremina+N[j].zapremina<=v then zb:=N[i].cijena+N[j].cijena;
  if zb>max then max:=zb;
  end;
  end;
  end;
  writeln(max);
  end.
Ulaz:
8 3 (zapremina i broj predmeta)
3 3 (lijevo zapremina-desno cijena)
4 5
5 8
Izlaz:
11

Duž neke rijeke postoji niz restorana.Svaki restoran karakteriše broj ulovljenih riba i broj kilometara udaljenih od izvora rijeke.
Ribe mogu da se raspodijele među restoranima.Tokom transporta na svakom kilometru se gubi po jedna riba.Treba da se odredi maksimalan broj osoba koje mogu da budu ugošćene.
Primjer:
ulaz:
3 (broj restorana)
1 0 (lijevo kilometri,desno ribe)
2 22
4 0
Izlaz:
6

Test br.1 5 bodova
Ulaz1:
21
Izlaz1:
17711

Test br.2 5 bodova
Ulaz1:
750
Izlaz1:
3983206532...749 (grubo rečeno ima 160 cifara)

Test br1. 5 bodova
Ulaz:
123
Izlaz:
109

Test br.2 5 bodova
Ulaz:
10 000
Izlaz:
9 986

Test br.3 5 bodova
Ulaz:
95 000
Izlaz:
94992

Test br.1 5 bodova
Ulaz:
255       8
Izlaz:
10000000

Test br.2 5 bodova
Ulaz:
12345   16
Izlaz:
0010100000100101

Test br.3 5 bodova
Ulaz:
699 050      20
Izlaz:
11111111111111111111

Test br.4 5 bodova
Ulaz:
999 000     22
Izlaz:
0010001010000101110100

Test br.1 5 bodova
Ulaz:
10 2 (prvi red su ti podaci-lijevo zapremina-desno broj predmeta)
2 3
3 4
Izlaz:
15  (e vidiš ovde može više predmeta da stane,zato moj kod ni ne radi :D )

Test br.2 5 bodova
Ulaz:
111 4
2 4
3 5
4 8
5 7
Izlaz:
221


Ostali su ulazOVi nepotpuni,pošto ima puno podataka,pa su samo stavili ...(tri tačke)
Uglavnom piše ovako:
Test br3.
Izlaz:1371
Test br4.
Izlaz:2496
Test br5.
Izlaz:72 048

Ulaz:
3 (prvi broj ti je broj restorana)
5 70
15 100
1200 20
Izlaz:
20

Ulaz:
4
20 300
40 400
340 700
360 600
Izlaz:
415


Ulaz:
5
203 98
359 39
373 93
380 25
874 48
Izlaz:
45

Dalje isti slučaj ko i sa 4.zadatkom

Izlaz:611

Izlaz:472

Izlaz:499