Bùi Tiến Mạnh

program ncount;
var n,s,k:longint;
begin
        readln(n);
        s:=0;
        while(n<>0) do
                begin
                        k:=n mod 10;
                        n:=n div 10;
                        s:=s+k;
                end;
        writeln('tong cac so nguyen duong',s);
end.

program dcount;
uses crt;
var a:longint;
function tongcs(n:Longint):longint;
var i:longint;
    s:longint;
begin
clrscr;
        s:=0;
        for i:=1 to n do
                begin
                        s:=s+1;
                end;
exit(n)
end;
begin
        readln(a);
        writeln(tongcs(a));
end.

program xchange;
var x,a,b,c,res:longint;
begin
        readln(x);
        a:=x div 50;
        x:=x-a*50;
        b:=x div 20;
        x:=x-b*20;
        c:=x div 10;
        x:=x-c*10;
        res:=a+b+c;
        if x>0 then write('-1')
        else write(res)
end.

program xmax;
uses math;
var t,res,i,n:longint;
function timcsmax(u:longint):longint;
begin
        t:=0;
        while u>0 do
        begin
                t:=max(t,(u mod 10));
                u:=u div 10;
        end;
        exit(t);
end;
begin
readln(n);
res:=0;
for i:=1 to n do
res:=max(res,timcsmax(i));
write(res);
end.

program sdiv;
var n,i:longint;
function tonguoc(u:longint):longint;
var t:longint=0;
begin
        for i:=1 to trunc(sqrt(u)) do
        if u mod i=0 then
        begin
                t:=t+i;inc(t,i);
                if i=u div i then
                t:=t+u div i;
        end;
        exit(t);
        end;
begin
readln(n);
write(tonguoc(n));
end.

program amux;
var a,x,p:longint;
const l=trunc(1e9)+7;
function amux(u,v:longint):longint;
var t:longint;
begin
        if v=0 then exit(l);
        if v=1 then exit(u);
        t:=amux(u,v mod 2);
exit((t*t*amux(u,v mod 2))mod 1);
end;
begin
        readln(a);
        readln(x);
        p:=amux(a,x);
        write(p);
end.

program squa;
var x,n:longint;
res:real;
function canbac3(u:longint):real;
var c,d,giua:real;
begin
        d:=1;
        c:=sqrt(u);
        while c-d >=0.001 do
        begin
                giua:=(d+c)/2;
                if giua*giua*giua>x then c:=giua
                else d:=giua;
        end;
        exit(giua);
end;

                begin
                readln(x);
                write(canbac3(x):0:3);
                end.

program fprime;
var i,res,p:longint;
f: array [-3..100000] of longint;
function ngto(u:longint):boolean;
var j:longint;
begin
        if u<=1 then exit(false);
        if (u=2) or (u=3) then exit(true);
        for j:=2 to trunc(sqrt(u)) do
        if (u mod j=0) then exit(false);
        exit(true);
end;
begin
        readln(p);
        f[1]:=1;
        f[2]:=1;
        i:=2;
        res:=0;
        while f[i+1]+f[i+2]<=p do
        begin
        f[i]:=f[i-1]+f[i-2];
        if ngto(f[i]) then res:=res+1;
        inc(i);
        end;
        write(res)
end.

program eratos;
var a,i:longint;
function sangnt(u:longint):boolean;
var k:longint;
begin
        if u<=1 then exit(false);
        if (u=2) or (u=3) then exit(true);
        for k:=2 to trunc(sqrt(u)) do
                if (u mod k=0) then exit(false);
        exit(true);
end;
begin
        readln(a);
        for i:=1 to a do
                if sangnt(i)=true then write(i,' ');
end.

program tsnt2;
var n,k,i:longint;
c,d:array[-3..100000]of longint;
procedure phantich(u:longint);
var i,dem:longint;
begin
        i:=2;
        k:=0;
        while i*i<=u do
                begin
                        dem:=0;
                        while u mod i=0 do
                                begin
                                        inc(dem);
                                        u:=u div i;
                                end;
                                if dem>0 then
                                        begin
                                                inc(k);
                                                c[k]:=i;
                                                d[k]:=dem;
                                        end;
                        inc(i);
                end;
        if u>1 then
                begin
                        inc(k);
                        c[k]:=u;
                        d[k]:=1;
                end;
end;
        begin
                readln(n);
                phantich(n);
                for i:=1 to k do
                        writeln(c[i],#32,d[i]);
        end
        .

program nfind;
var m,k:longint;
function tichcs(u:longint):longint;
var s:longint=1;
begin
        while u>0 do
        begin
                s:=s*(u mod 10);
                u:=u div 10;
        end;
exit(s);
end;
begin
        readln(m);
        k:=1;
        while tichcs(k)<>m do
        K:=k+1;
        write(k);
end.

program numberc;
var n:longint;
c:array[1..10000000]of longint;
function ngto(u:longint):boolean;
var i:longint;
begin
        if u<=1 then
        exit(false);
        if (u=2) or (u=3) then
        exit(true);
        for i:=2 to trunc(sqrt(u)) do
        if (u mod i=0) then
        exit(false);
        exit(true);
end;
begin
        readln(n);
        while (ngto(n)=false)and(n>0) do
        begin
                n:=n div 10;
                if n>0 then
                begin
                        if n>0 then write(n)
                        else write('-1');
                end;
        end;
end.

program arrdel;
var
        n,i,k:longint;
        a,c:array [1..100000]of longint;
begin
        readln(n);
        for i:=1 to n do readln(a[i]);
        k:= 0;
        for i:=1 to n do
                if a[i]=a[i+1] then
                        begin
                                inc(k);
                                c[k]:=a[i];
                        end;
        for i:=1 to k do write(c[i], #32)
end.

program sap_xep_nhanh;
var n,i:longint;
a:array[1..10000000] of longint;
procedure qsort(l,r:Longint);
var i,j,t,chot,giua:longint;
begin
  i:=l;
  j:=r;
  giua:=(i+j) div 2;
  chot:=a[giua];
  while i<=j do
      begin
        while a[i]<chot do inc(i);
        while a[j]>chot do dec(j);
        if i<=j then
            begin
              t:=a[i];
              a[i]:=a[j];
              a[j]:=l ;
              inc(i);
              dec(j);
            end;
        for i:=1 to n do write(a[i]);
      end;
end;
begin
  readln(n);
  for i:=1 to n do read(a[i]);
  qsort(i,n);
end.

program ilucky;
var j,i,p,n:longint;
a:array[1..1000000]of longint;
var s1,s2:longint;
begin
        readln(n);
        s1:=0;
        p:=0;
        for i:=1 to n-1 do
        begin
                s1:=s1+a[i];
                s2:=0;
                for j:=i+1 to n do
                s2:=s2+a[j];
                if s1=s2 then
                begin
                        write(i,#32);
                        p:=1;
                end;
        if p=0 then write('-1');
        end;
end.

program ckprime;
var a:Longint;
function sont(n:Longint):Boolean;
var i:Integer;
kq:Bolean;
begin
        kq:=true;
        if n=1 then kq:=false;
        for i:=1 to (n-1) do
        if (i mod n=0) then kq:=false;
        exit(kq);
end;
begin
        readln(a);
        writeln(sont(a))
end.

program pmin;
uses math;
var n,i:longint;
res:longint=high(longint);
a:array[1..1000000]of longint;
begin
        readln(n);
        for i:=1 to n do
                begin
                        read(a[i]);
                        res := min(res,a[i]);
                end;
        for i:=1 to n do
        if a[i] = res then write(i,#32);
end.

program psecond;
uses math;
var n,i:longint;
a:array[1..100000]of longint;
min1:longint=high(longint);
min2:longint=low(longint);
begin
        readln(n);
        for i:=1 to n do
                begin
                        read(a[i]);
                        min1:=min(min1,a[i]);
                        min2:=max(min2,a[i]);
                end;
        if min1=min2 then
                begin
                        write(-1);
                        exit;
                end;
        for i:=1 to n do
        if (a[i]<=min2) and (a[i]>min1) then min2:=a[i];
        for i:=1 to n do if a[i]=min2 then write(i,#32);
end.

program psecond;
uses math;
var n,i:longint;
a:array[1..100000]of longint;
min1:longint=high(longint);
min2:longint=low(longint);
begin
        readln(n);
        for i:=1 to n do
                begin
                        read(a[i]);
                        min1:=min(min1,a[i]);
                        min2:=max(min2,a[i]);
                end;
         if min1=min2 then
                begin
                        write(-1);
                        exit;
                end;
         for i:=1 to n do
         if (a[i]<=min2) and (a[i]>min1) then min2:=a[i];
         for i:=1 to n do if a[i]=min2 then write(i,#32);
end.

program gcd;
var a,b,c,res:longint;
function ucln(u,v:longint):longint;
var r:longint;
begin
        while v>0 do
                begin
                        r:=u mod v;
                        u:=v;
                        v:=r;
                end;
        exit(u);
end;
        begin
                readln(a,b,c);
                res:=ucln(ucln(a,b),c);
                writeln(res);
        end.

program arradd2;
var m,n,i:longint;
a,b,c:array[1..100000]of longint;
procedure qsort(l,r:longint);
var i,j,t,chot,giua:longint;
begin
        i:=l;
        j:=r;
        giua:=(i+j) div 2;
        chot:=c[giua];
        while i<=j do
                begin
                        while c[i]<chot do inc(i);
                        while c[j]>chot do dec(j);
                        if i<=j then
                                begin
                                        t:=c[i];
                                        c[i]:=c[j];
                                        c[j]:=t;
                                        inc(i);
                                        dec(j);
                                end;
                end;
        if l<j then
                qsort(l,j);
        if i<r then
                qsort(i,r);
end;
        begin
        readln(n,m);
        for i:=1 to n do
                read(a[i]);
        for i:=1 to m do
                read(b[i]);
        for i:=1 to n do
                c[i]:=a[i];
        for i:=1 to m do
                c[i+n]:=b[i];
        qsort(1,m+n);
        for i:=1 to m+n do
                write(c[i],#32);
end.

program arr2dsqu;
var a:array[1..300, 1..300]of longint;
    m,n,s,i,j:longint;
begin
        readln(m,n);
        for i:=1 to m do
                for j:=1 to n do
                        read(a[i,j]);
        s:=0;
        for i:=1 to m do
                begin
                        s:=0;
                        for j:=1 to n do s:=s+a[i,j];
                        write(s,#32);
                end;
        for j:=1 to n do
                begin
                        s:=0;
                        for i:=1 to m do s:=s+a[i,j];
                        write(s,#32);
                end;
end.

program arr2dpri;
var a:array[-5..300,-5..300]of longint;
m,n,j,i:longint;
function nguyento(u:longint):boolean;
begin
        if u<2 then exit(false);
        for i:=2 to trunc(sqrt(u)) do
                if u mod i=0 then exit(false);
        exit(true);
end;
begin
        readln(m,n);
        for i:=1 to m do
                for j:=1 to n do
                      readln(a[i,j]);
                      for i:=1 to m do
                        for j:=1 to n do
                                if nguyento(a[i,j]) then
                                writeln(i,#32,j);
                                if not nguyento(a[i,j]) then
                                writeln('-1');
end.

program lap;
var i,n:longint;
res,s:real;
begin
  assign(input,'lap.inp');reset(input);
  assign(output,'lap.out');rewrite(output);
      readln(n);
      s:=0;
      for i:= 2 to n do
        begin
            res:=(1/i)+(1/(i+1));
            s :=s+res;
        end;
      write(s:0:2);
  close(input);close(output);
end.