uses crt;

label 1;

var f1,f2:text;

a,c,d:array[1..1000]of integer;

i,j,tam,max,k,n,dem:integer;

begin

clrscr;

assign(f1,'D:\FP_LAM\14.12\inp\BT3.INP');

reset(f1);

assign(f2,'D:\FP_LAM\14.12\out\BT3.OUT');

rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

dem:=0;

for i:=1 to n do

if a[i]mod 2=0 then

inc(dem)

else

begin

1:

if dem=max then

begin

inc(k);

d[k]:=i-dem;

c[k]:=i-1;

end;

if dem>max then

begin

max:=dem;

k:=1;

d[k]:=i-dem;

c[k]:=i-1;

end;

dem:=0;

end;

if dem<>0 then goto 1;

writeln(f2,max);

for i:=1 to k do

begin

for j:=d[i]to c[i]do

write(f2,a[j],' ');

writeln(f2);

end;

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

a,c,d:array[1..1000]of integer;

i,j,tam,max,k,n,dem,s,maxx:integer;

begin

clrscr;

assign(f1,'D:\FP_LAM\14.12\inp\BT4.INP');

reset(f1);

assign(f2,'D:\FP_LAM\14.12\out\BT4.OUT');

rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

dem:=1; s:=a[1];maxx:=s;

for i:=1 to n do

begin

if a[i]>=a[i+1]then

begin

inc(dem);

if s<>a[i]then

s:=s+a[i];

end

else

begin

if(dem>max)or(s>maxx) then

begin

maxx:=s;

max:=dem;

k:=1;

d[k]:=i-dem+1;

c[k]:=i;

end;

if(dem=max)and(s>maxx) then

begin

inc(k);

d[k]:=i-dem+1;

c[k]:=i;

end;

dem:=1;

s:=0;

end;

end;

writeln(f2,max,' ',maxx);

for i:=1 to k do

begin

for j:=d[i]to c[i]do

write(f2,a[j],' ');

writeln(f2);

end;

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

a,c,d:array[1..1000]of integer;

i,j,tam,max,k,dem:integer;

st:string;

begin

clrscr;

assign(f1,'D:\FP_LAM\14.12\inp\BT5.INP');

reset(f1);

assign(f2,'D:\FP_LAM\14.12\out\BT5.OUT');

rewrite(f2);

readln(f1,st);

dem:=1;

for i:=1 to length(st) do

if st[i]=st[i+1]then

inc(dem)

else

begin

if dem>max then

begin

max:=dem;

k:=1;

d[k]:=i-dem+1;

c[k]:=i;

dem:=1;

end;

if dem=max then

begin

inc(k);

d[k]:=i-dem+1;

c[k]:=i;

dem:=1;

end;

end;

writeln(f2,max);

for i:=1 to k do

begin

for j:=d[i]to c[i]do

write(f2,st[j]);

writeln(f2);

end;

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

a,c,d:array[1..1000]of integer;

i,j,tam,max,k,n,dem:integer;

function nt(x:integer):boolean;

var ii:integer;

begin

if x<2 then

exit(false);

for ii:=2 to x-1 do

if x mod ii=0 then

exit(false);

exit(true);

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\14.12\inp\BT2.INP');

reset(f1);

assign(f2,'D:\FP_LAM\14.12\out\BT2.OUT');

rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

dem:=0;

for i:=1 to n do

if nt(a[i]) then

inc(dem)

else

begin

if dem=max then

begin

inc(k);

d[k]:=i-dem;

c[k]:=i-1;

end;

if dem>max then

begin

max:=dem;

k:=1;

d[k]:=i-dem;

c[k]:=i-1;

end;

dem:=0;

end;

writeln(f2,max);

for i:=1 to k do

begin

for j:=d[i]to c[i]do

write(f2,a[j],' ');

writeln(f2);

end;

close(f2);

readln;

end

uses crt;

var f1,f2:text;

a,c,d:array[1..1000]of integer;

i,j,tam,max,k,n,dem:integer;

begin

clrscr;

assign(f1,'D:\FP_LAM\14.12\inp\BT6.INP');

reset(f1);

assign(f2,'D:\FP_LAM\14.12\out\BT6.OUT');

rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

dem:=1;

for i:=1 to n do

if a[i]*a[i+1]>0then

inc(dem)

else

begin

if dem>max then

begin

max:=dem;

k:=1;

d[k]:=i-dem+1;

c[k]:=i;

dem:=1;

end;

if dem=max then

begin

inc(k);

d[k]:=i-dem+1;

c[k]:=i;

dem:=1;

end;

end;

writeln(f2,max);

for i:=1 to k do

begin

for j:=d[i]to c[i]do

write(f2,a[j],' ');

writeln(f2);

end;

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

a,c,d:array[1..1000]of integer;

i,j,tam,max,k,n,dem:integer;

begin

clrscr;

assign(f1,'D:\FP_LAM\14.12\inp\BT7.INP');

reset(f1);

assign(f2,'D:\FP_LAM\14.12\out\BT7.OUT');

rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

dem:=1;

for i:=1 to n do

if a[i]*a[i+1]<0then

inc(dem)

else

begin

if dem>max then

begin

max:=dem;

k:=1;

d[k]:=i-dem+1;

c[k]:=i;

dem:=1;

end;

if dem=max then

begin

inc(k);

d[k]:=i-dem+1;

c[k]:=i;

dem:=1;

end;

end;

writeln(f2,max);

for i:=1 to k do

begin

for j:=d[i]to c[i]do

write(f2,a[j],' ');

writeln(f2);

end;

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

a,t:array[1..1000]of integer;

i,j,max,n:integer;

procedure xuat(x,y:integer);

var ii:integer;

begin

for ii:=x+1 to y do

write(f2,a[ii],' ');

writeln(f2);

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\14.12\inp\BT8.INP');

reset(f1);

assign(f2,'D:\FP_LAM\14.12\out\BT8.OUT');

rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

t[1]:=a[1];

for i:=2 to n do

t[i]:=t[i-1]+a[i];

max:=-maxint;

for i:=1 to n do

for j:=i+1 to n do

if max<t[j]-t[i]then

max:=t[j]-t[i];

for i:=1 to n do

for j:=i+1 to n do

if max=t[j]-t[i]then

xuat(i,j);

close(f2);

readln;

uses crt;

var f1,f2:text;

cum,i,p:integer;

a,d,c:array[1..1000]of integer;

st:string;

procedure nap(x:integer);

begin

inc(p);

a[p]:=x;

end;

function lay:integer;

begin

lay:=a[p];

dec(p);

end;

function ktr:boolean;

begin

ktr:=(p=0);

end;

procedure xuly;

begin

for i:=1 to length(st)do

if st[i]='('then

nap(i)

else

if st[i]=')'then

if ktr then

begin

write(f2,'-1');

exit;

end

else

begin

inc(cum);

d[cum]:=lay;

c[cum]:=i;

end;

if not ktr then

begin

write(f2,'-1');

exit;

end;

writeln(f2,cum);

for i:=1 to cum do

writeln(f2,copy(st,d[i],c[i]-d[i]+1));

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\17.12\inp\CUM.INP');

reset(f1);

assign(f2,'D:\FP_LAM\17.12\out\CUM.OUT');

rewrite(f2);

read(f1,st);

p:=0;

cum:=0;

xuly;

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

tam,i,p:integer;

c,b:real;

a:array[1..1000]of real;

st:string;

procedure nap(x:string);

begin

inc(p);

val(x,tam);

a[p]:=tam;

end;

procedure nap1(x:real);

begin

inc(p);

a[p]:=x;

end;

function lay:real;

begin

lay:=a[p];

dec(p);

end;

procedure xuly;

begin

for i:=1 to length(st)do

if st[i]in['0'..'9']then

nap(st[i])

else

if st[i]in['+','-','*','/']then

begin

b:=lay;

c:=lay;

case st[i]of

'+':nap1(c+b);

'-':nap1(c-b);

'*':nap1(c*b);

'/':nap1(c/b);

end;

end;

writeln(f2,round(a[1]));

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\17.12\inp\BIEUTHUC.INP');

reset(f1);

assign(f2,'D:\FP_LAM\17.12\out\BIEUTHUC.OUT');

rewrite(f2);

while not eof(f1)do

begin

readln(f1,st);

p:=0;

xuly;

end;

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

a:array[1..100]of integer;

i,n,j:integer;

function uoc(x:integer):boolean;

var k:integer;

begin

for k:=1 to j do

if a[k] mod x=0then

exit(true);

exit(false);

end;

function nt(x:integer):boolean;

var k:integer;

begin

if x<2 then

exit(false);

for k:=2 to x-1 do

if x mod k=0 then

exit(false);

exit(true);

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\17.12\inp\HP.INP');

reset(f1);

assign(f2,'D:\FP_LAM\17.12\out\HP.OUT');

rewrite(f2);

read(f1,n);

a[1]:=n;

j:=1;

for i:=n-1 downto 1 do

if(uoc(i))or(nt(i))then

begin

inc(j);

a[j]:=i;

end;

for i:=1 to j do

write(f2,a[i],' ');

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

i,n,max,maxn,j:integer;

function uoc(x:integer):integer;

begin

uoc:=0;

for j:=1 to x do

if x mod j=0 then

inc(uoc);

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\17.12\inp\PNT.INP');

reset(f1);

assign(f2,'D:\FP_LAM\17.12\out/PNT.OUT');

rewrite(f2);

read(f1,n);

for i:=2 to n do

if uoc(i)>max then

begin

max:=uoc(i);

maxn:=i;

end;

write(f2,maxn);

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

n,k,p1,p2:integer;

begin

clrscr;

assign(f1,'D:\FP_LAM\17.12\inp\BTICK.INP');

reset(f1);

assign(f2,'D:\FP_LAM\17.12\out\BTICK.OUT');

rewrite(f2);

read(f1,n,k,p1,p2);

write(f2,((n div k)*p2)+((n mod k)*p1));

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

a:array[1..1000,1..1000]of integer;

i,j,n,max,s1,s2,k:integer;

begin

clrscr;

assign(f1,'D:\FP_LAM\17.12\inp\MAX.INP');

reset(f1);

assign(f2,'D:\FP_LAM\17.12\out\MAX.OUT');

rewrite(f2);

readln(f1,n);

for i:=1 to n do

for j:=1 to n do

read(f1,a[i,j]);

for k:=1 to n-1 do

begin

s1:=0;

s2:=0;

for i:=1 to n-k do

begin

j:=i+k;

s1:=s1+a[i,j];

s2:=s2+a[j,i];

end;

if s1>max then

max:=s1;

if s2>max then

max:=s2;

end;

write(f2,max);

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

n,m,i,j,giay:integer;

a,b,c:array[1..1000]of integer;

function kt:boolean;

begin

for j:=1 to n do

if a[i]<>c[i]then

exit(false);

exit(true);

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\17.12\inp\Light.inp');

reset(f1);

assign(f2,'D:\FP_LAM\17.12\out\Light.out');

rewrite(f2);

readln(f1,n,m);

for i:=1 to n do

read(f1,a[i]);

readln(f1);

for i:=1 to m do

read(f1,b[i]);

for i:=1 to n do

c[i]:=a[i];

giay:=0;

repeat

inc(giay);

for i:=1 to n do

c[i]:=(c[i]+b[i])mod m;

until(kt);

write(f2,giay);

close(f2);

readln;

end.

uses crt;

var s,k,t:int64;

begin

clrscr;

write('nhap so tien mua hang: ');

readln(k);

write('nhap so tien khach hang dua: ');

readln(s);

t:=s-k;

writeln('so tien tra lai cho khach hang: ',t,' dong');

writeln('so to 5000 dong: ',t div 5000,' to');

t:=t mod 5000;

writeln('so to 2000 dong: ',t div 2000,' to');

t:=t mod 2000;

write('so to 1000 dong: ',t div 1000,' to');

readln;

end.

uses crt;

var i:integer;

s:string;

d:array['A'..'Z']of integer;

begin

clrscr;

readln(s);

for i:=1 to length(s)do

if s[i]in['T','E','N']then

inc(d[s[i]]);

writeln('T=',d['T']);

writeln('E=',d['E']);

writeln('N=',d['N']);

for i:=1 to d['E']do

if(i>d['T'])or(i>d['N'])or(i*2>d['E'])then

break;

write('TEEN=',i-1);

readln;

end.

uses crt;

var f1,f2:text;

n,i,dem:int32;

function tp(x:int32):boolean;

var d,j:int32;

begin

d:=1;

for j:=1 to x div 2 do

begin

if x mod j=0 then

inc(d);

if d>3 then

exit(false);

end;

if d=3 then

exit(true)

else

exit(false);

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\21.12\inp\TPRIME.INP');

reset(f1);

assign(f2,'D:\FP_LAM\21.12\out\TPRIME.OUT');

rewrite(f2);

read(f1,n);

dem:=0;

for i:=1 to n do

if tp(i)then

inc(dem);

write(f2,dem);

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

st:array[0..50]of string;

a:array[1..50]of integer;

i,n:integer;

ch:char;

begin

clrscr;

assign(f1,'D:\FP_LAM\21.12\inp\GIAIMA.INP');

reset(f1);

assign(f2,'D:\FP_LAM\21.12\out\GIAIMA.OUT');

rewrite(f2);

i:=1;

while not eoln(f1)do

begin

read(f1,ch);

if(ch=' ')then

inc(i);

if ch<>' 'then

st[i]:=st[i]+ch;

end;

i:=0;

readln(f1);

while not eoln(f1)do

begin

inc(i);

read(f1,a[i]);

end;

n:=i;

for i:=1 to n do

write(f2,st[a[i]],' ');

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

i,n:integer;

a:array[1..1000]of int32;

function tm(x:int32):boolean;

var j:integer;

begin

for j:=1 to n do

if x=a[j]then

exit(true);

exit(false);

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\21.12\inp\CP.INP');

reset(f1);

assign(f2,'D:\FP_LAM\21.12\out\CP.OUT');

rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

i:=0;

while(true)do

begin

inc(i);

if(sqrt(i)=round(sqrt(i))) then

if tm(i)=false then

break;

end;

write(f2,i);

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

n,m,y:integer;

function ucln(x,z:integer):integer;

begin

while(x<>z)do

if x>z then

x:=x-z

else

z:=z-x;

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\21.12\inp\VANNGHE.INP');

reset(f1);

assign(f2,'D:\FP_LAM\21.12\out\VANNGHE.OUT');

rewrite(f2);

read(f1,n,m);

y:=ucln(n,m);

writeln(f2,y);

write(f2,n div y,' ',m div y);

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

n,i:integer;

function nt(x:integer):boolean;

begin

if x<2 then

exit(false);

for i:=2 to x div 2 do

if x mod 2=0 then

exit(false);

exit(true);

end;

function snt(x:integer):boolean;

begin

if nt(x)=false then

exit(false);

while(x>=10)do

begin

x:=x div 10;

if nt(x)=false then

exit(false);

end;

exit(true);

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\21.12\inp\SNT.INP');

reset(f1);

assign(f2,'D:\FP_LAM\21.12\out\SNT.OUT');

rewrite(f2);

read(f1,n);

if snt(n)then

write(f2,1)

else

write(f2,0);

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

st,s,ss:string;

i:integer;

begin;

clrscr;

assign(f1,'D:\FP_LAM\21.12\inp\TNGH.INP');

reset(f1);

assign(f2,'D:\FP_LAM\21.12\out\TNGH.OUT');

rewrite(f2);

read(f1,st);

for i:=1 to length(st)do

case st[i]of

'A'..'C':s:=s+'2';

'D'..'F':s:=s+'3';

'G'..'I':s:=s+'4';

'J'..'L':s:=s+'5';

'M'..'O':s:=s+'6';

'P'..'S':s:=s+'7';

'T'..'V':s:=s+'8';

'W'..'Z':s:=s+'9';

end;

for i:=length(s) downto 1 do

ss:=ss+s[i];

if s=ss then

write(f2,1)

else

write(f2,0);

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

n,i,j:int32;

a:array[1..1500000000]of boolean;

function sl:integer;

begin

sl:=0;

for i:=1 to n do

a[i]:=true;

for i:=2 to round(sqrt(n))do

if a[i]=true then

begin

inc(sl);

j:=i;

while(i*j<=n)do

begin

a[i*j]:=false;

inc(j);

end;

end;

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\21.12\inp\TPRIME.INP');

reset(f1);

assign(f2,'D:\FP_LAM\21.12\out\TPRIME.OUT');

rewrite(f2);

read(f1,n);

write(f2,sl);

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

n,i:int32;

function sl:integer;

begin

for i:=1 to n do

if sqrt(i)=round(sqrt(i))then

inc(sl);

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\21.12\inp\TPRIME.INP');

reset(f1);

assign(f2,'D:\FP_LAM\21.12\out\TPRIME.OUT');

rewrite(f2);

read(f1,n);

write(f2,sl);

close(f2);

readln;

end.

uses crt;

var a:array[1..10,1..10]of integer;

i,j,n,m,s:integer;

begin

clrscr;

write('nhap n: ');

readln(n);

write('nhap m: ');

readln(m);

for i:=1 to n do

for j:=1 to m do

begin

write('nhap a[',i,',',j,']= ');

readln(a[i,j]);

end;

for i:=1 to n do

for j:=1 to m do

s:=s+a[i,j];

write('tong: ',s);

readln;

end.

uses crt;

var a:array[1..10,1..10]of integer;

i,j,n,m,max,ii,jj:integer;

begin

clrscr;

write('nhap n: '); readln(n);

write('nhap m: '); readln(m);

for i:=1 to n do

for j:=1 to m do

begin

write('nhap a[',i,',',j,']= ');

readln(a[i,j]);

end;

max:=a[1,1];

for i:=1 to n do

for j:=1 to m do

if max<a[i,j]then

begin

max:=a[i,j];

ii:=i;

jj:=j;

end;

write('mang ');

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j],' ');

writeln;

end;

write('co so lon nhat la ',max,', nam o vi tri dong ',ii,' cot ',jj);

readln;

end.

uses crt;

var a:array[1..10,1..10]of integer;

m,n,i,j:integer;

begin

clrscr;

write('nhap n: ');

readln(n);

write('nhap m: ');

readln(m);

for i:=1 to n do

for j:=1 to m do

begin

write('nhap a[',i,',',j,']= ');

readln(a[i,j]);

end;

for i:=1 to n do

begin

a[i,m+1]:=a[i,1];

for j:=1 to m do

if a[i,m+1]<a[i,j]then

a[i,m+1]:=a[i,j];

end;

write('mang ');

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j],' ');

writeln;

end;

write('co cac so lon nhat dong ');

for i:=1 to n-2 do

write(a[i,m+1],', ');

write(a[n-1,m+1],' va ',a[n,m+1]);

readln;

end.

uses crt;

var a:array[1..10,1..10]of integer;

i,j,n:integer;

begin

clrscr;

write('nhap n: ');

readln(n);

for i:=1 to n do

for j:=1 to n do

begin

write('nhap a[',i,',',j,']= ');

readln(a[i,j]);

end;

write('mang ');

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j],' ');

writeln;

end;

write('co cac so tren duong cheo chinh la ');

for i:=1 to n-2 do

write(a[i,i],', ');

write(a[n-1,n-1],' va ',a[n,n]);

readln;

end.

uses crt;

var a:array[1..10,1..10]of integer;

i,j,n:integer;

begin

clrscr;

write('nhap n: ');

readln(n);

for i:=1 to n do

for j:=1 to n do

begin

write('nhap a[',i,',',j,']= ');

readln(a[i,j]);

end;

write('mang ');

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j],' ');

writeln;

end;

write('co cac so tren duong cheo phu la ');

for i:=1 to n-2 do

write(a[i,n-i+1],', ');

write(a[n-1,n-(n-1)+1],' va ',a[n,1]);

readln;

end.

uses crt;

var a:array[1..10,1..10]of real;

i,j,n,m,dem:integer;max:real;

begin

clrscr;

//nhap

write('nhap n: ');

readln(n);

write('nhap m: ');

readln(m);

for i:=1 to n do

for j:=1 to m do

begin

write('nhap a[',i,',',j,']= ');

readln(a[i,j]);

end;

//xuat

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j]:0:0,' ');

writeln;

end;

//dem 0, tim max

max:=a[1,1];

for i:=1 to n do

for j:=1 to m do

begin

if a[i,j]=0then

inc(dem);

if max<a[i,j]then

max:=a[i,j];

end;

writeln(dem);

writeln(max:0:0);

readln;

end.

uses crt;

var f1,f2:text;

n:int32;

function t(x:int32):int64;

var i:int32;

begin

t:=0;

for i:=1 to x do

t:=t+(2*i-1)*(2*i-1);

end;

begin

clrscr;

assign(f1,'D:\SDB03\inp\TONG.INP');

reset(f1);

assign(f2,'D:\SDB03\out\TONG.OUT');

rewrite(f2);

read(f1,n);

write(f2,t(n));

close(f2);

end.

uses crt;

var f1,f2:text;

a:array[1..100000]of int64;

k,n,ii:int32;

function sl:int64;

var i,j:int32;

begin

sl:=0;

for i:=1 to n-1 do

for j:=i+1 to n do

if abs(a[i]+a[j])=k then

inc(sl);

end;

begin

clrscr;

assign(f1,'D:\SDB03\inp\LUCKY.INP');

reset(f1);

assign(f2,'D:\SDB03\out\LUCKY.OUT');

rewrite(f2);

readln(f1,n,k);

for ii:=1 to n do

read(f1,a[ii]);

write(f2,sl);

close(f2)

end.

var s,n:longword;

i:integer;

f1,f2:text;

begin

clrscr;

assign (f1,'d:\SBD12\TONG.inp');

reset (f1);

assign (f2,'d:\SBD12\TONG.out');

rewrite (f2);

read (f1,n);

if (n>100000) then

repeat

write ('Nhap lai:');

readln (f1,n);

until (n<=100000);

s:=0;

for i:=1 to n do

s:=s+sqr((2*i-1));

write (f2,s);

close (f1);

close (f2);

end.

uses crt;

var f1,f2:text;

st:string;

i,j,k:integer;

chm:char;

begin

clrscr;

assign(f1,'D:\SDB03\inp\DAYCON.INP');

reset(f1);

assign(f2,'D:\SDB03\out\DAYCON.OUT');

rewrite(f2);

readln(f1,st);

read(f1,k);

for i:=k downto 1 do

begin

chm:=' ';

for j:=length(st)-i+1 downto k-i+1 do

if st[j]>chm then

chm:=st[j];

while(st[k-i+1]<>chm)do

delete(st,k-i+1,1);

end;

write(f2,st);

close(f2)

end.

var n:longword;

f1,f2:text;

function nt(m:integer):boolean;

var j:integer;

begin

nt:=false;

if m<2 then

exit;

for j:=2 to m-1 do

if m mod j=0 then

exit;

nt:=true;

end;

function snt(k:integer):boolean;

var kt:boolean;

begin

kt:=true;

while (k<>0) do

begin

if (nt(k)=true) and (kt=true) then

kt:=true

else

kt:=false;

k:=k div 10;

end;

if kt=true then

snt:=true

else

snt:=false;

end;

begin

clrscr;

assign (f1,'d:\SBD12\SNT.INP');

reset (f1);

assign (f2,'d:\SBD12\SNT.OUT');

rewrite (f2);

read (f1,n);

if (snt(n)=true) then

write (f2,'1')

else

write (f2,'0');

close (f1);

close (f2);

end.

uses crt;

var f1,f2:text;

n:int32;

function nt(x:int32):boolean;

var i:int32;

begin

if x<2 then

exit(false);

for i:=2 to x div 2 do

if x mod i=0 then

exit(false);

exit(true);

end;

function snt(x:int32):boolean;

begin

if nt(x)=false then

exit(false);

while(x<>0)do

begin

x:=x div 10;

if(nt(x)=false)and(x<>0)then

exit(false);

end;

exit(true);

end;

begin

clrscr;

assign(f1,'D:\SDB03\inp\SNT.INP');

reset(f1);

assign(f2,'D:\SDB03\out\SNT.OUT');

rewrite(f2);

read(f1,n);

if snt(n)then

write(f2,1)

else

write(f2,0);

close(f2);

end.

var dem,i,j:integer;

n,k:int64;

f1,f2:text;

a:array [1..100] of integer;

begin

clrscr;

assign (f1,'d:\SBD12\LUCKY.inp');

reset (f1);

assign (f2,'d:\SBD12\LUCKY.out');

rewrite (f2);

readln (f1,n,k);

for i:=1 to n do

read (f1,a[i]);

for i:=1 to n do

for j:=i+1 to n do

if (a[i]+a[j]=k) and (i<>j) then

inc (dem);

write (f2,dem);

close (f1);

close (f2);

end.

uses crt;

var a:array[1..10,1..10]of integer;

n,m,i,j,max:integer;

begin

clrscr;

//nhap

write('nhap n: ');

readln(n);

write('nhap m: ');

readln(m);

for i:=1 to n do

for j:=1 to m do

begin

write('nhap a[',i,',',j,']= ');

readln(a[i,j]);

end;

//xuat

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j],' ');

writeln;

end;

//tinh tong dong, so sanh

max:=a[1,1];

for i:=1 to n do

begin

a[i,m+1]:=0;

for j:=1 to m do

a[i,m+1]:=a[i,m+1]+a[i,j];

writeln(a[i,m+1]);

if max<a[i,m+1]then max:=a[i,m+1]

end;

write(max);

readln;

end.

uses crt;

var a,b,n,i,j:integer;

function ucln(x,y:integer):integer;

begin

while(x<>y)do

if x>y then

x:=x-y

else

y:=y-x;

exit(x);

end;

function tu(x,y:integer):integer;

begin

tu:=0;

for i:=1 to y do

if(x mod i=0)and(y mod i=0)then

tu:=tu+i;

end;

function nt(x:integer):boolean;

begin

if x<2 then

exit(false);

for j:=2 to x-1 do

if x mod j=0 then

exit(false);

exit(true);

end;

function snt(x,y:integer):integer;

begin

snt:=0;

for i:=x to y do

if nt(i)then

snt:=snt+i;

end;

begin

clrscr;

write('nhap a: ');

readln(a);

write('nhap b: ');

readln(b);

write('nhap n: ');

readln(n);

writeln(ucln(a,b));

if tu(a,b)>n then

writeln('YES')

else

writeln('NO');

write(snt(a,b));

readln;

end.

uses crt;

var st:string;

max,i,j,dem,maxn:integer;

c:array[' '..'z']of integer;

ch:char;

begin

clrscr;

write('nhap xau: ');

readln(st);

//chuan hoa

while(pos(' ',st)<>0)do

delete(st,pos(' ',st),1);

if(st[1]=' ')then

delete(st,1,1);

if(st[length(st)]=' ')then

delete(st,length(st),1);

st[1]:=upcase(st[1]);

writeln(st);

//tu dai nhat

j:=1;dem:=0;

for i:=1 to length(st)do

if(st[i]=' ')or(i=length(st))then

begin

inc(dem);

if i-j+1>max then

begin

max:=i-j;

maxn:=dem;

end;

j:=i+1;

end;

writeln(max,';',maxn);

max:=0;

//dem

for i:=1 to length(st) do

if st[i]in['0'..'9','a'..'z','A'..'Z']then

inc(c[st[i]]);

for ch:=' 'to 'z'do

if max<c[ch]then

max:=c[ch];

write(max);

readln;

end.

uses crt;

var a,b,i,dem,j,ii:int32;

st,stt:string;

function tp(z:int32):string;

begin

stt:='';

tp:='';

while(z<>0)do

begin

if z mod 2=0 then

stt:=stt+'0'

else

stt:=stt+'1';

z:=z div 2;

end;

for j:=length(stt)downto 1 do

tp:=tp+stt[j];

end;

function dxnp(x:int32):boolean;

begin

st:=tp(x);

for ii:=1 to length(st)div 2 do

if st[ii]<>st[length(st)-ii+1]then

exit(false);

exit(true);

end;

function dxtp(x:int32):boolean;

begin

str(x,st);

for j:=1 to length(st)div 2 do

if st[j]<>st[length(st)-j+1]then

exit(false);

exit(true);

end;

procedure dxntp(x,y:int32);

begin

dem:=0;

for i:=x to y do

if dxtp(i)and(dxnp(i))then

begin

inc(dem);

writeln(i:9,'-',tp(i));

end;

write(dem:9,' so');

end;

begin

clrscr;

write('nhap a: ');

readln(a);

write('nhap b: ');

readln(b);

dxntp(a,b);

readln;

end.

uses crt;

var f1,f2:text;

a:array['0'..'9']of integer;

stx,sty,st:string;

i:integer;

ch:char;

begin

clrscr;

assign(f1,'D:\FP_LAM\4.1\inp\SINHXAU.INP');

reset(f1);

assign(f2,'D:\FP_LAM\4.1\out\SINHXAU.OUT');

rewrite(f2);

readln(f1,stx);

read(f1,sty);

stx:=copy(stx,4,length(stx)-4);

sty:=copy(sty,4,length(sty)-4);

for i:=1 to length(stx)do

if a[stx[i]]=0 then

inc(a[stx[i]]);

for i:=1 to length(sty)do

if a[sty[i]]=1 then

inc(a[sty[i]]);

st:='';

for ch:='9'downto'0'do

if a[ch]=2 then

st:=st+ch;

if st<>''then

write(f2,st)

else

write(f2,'Khong co');

close(f2);

end.

uses crt;

var f1,f2:text;

a,b:array[1..100]of integer;

dem,i,j,k,n,m:integer;

begin

clrscr;

assign(f1,'D:\FP_LAM\4.1\inp\BOISO.INP');

reset(f1);

assign(f2,'D:\FP_LAM\4.1\out\BOISO.OUT');

rewrite(f2);

readln(f1,n,m);

for i:=1 to n do

read(f1,a[i]);

for i:=1 to n-2 do

for j:=i+1 to n-1 do

for k:=j+1 to n do

if a[i]+a[j]+a[k]=m then

begin

inc(dem);

b[dem]:=i*100+j*10+k;

end;

writeln(f2,dem);

for i:=1 to dem do

write(f2,b[i],' ');

close(f2);

end.

uses crt;

var f1,f2:text;

i,a,b,n:int32;

kt:boolean;

begin

clrscr;

assign(f1,'D:\FP_LAM\30.11\inp\B8.inp');

reset(f1);

assign(f2,'D:\FP_LAM\30.11\out\B8.out');

rewrite(f2);

read(f1,n,a,b);

kt:=true;

for i:=n div b downto 0 do

if(n-b*i)mod a=0 then

begin

write(f2,(n-b*i)div a+i);

close(f2);

exit;

end;

write(f2,-1);

close(f2);

end.

uses crt;

var i,n,dem,j:int32;

a,b:array[1..1000000]of int32;

function kt(x:int32):boolean;

begin

for j:=x+1 to n do

if a[x]<=a[j]then

exit(false);

exit(true);

end;

begin

clrscr;

write('nhap n: ');

readln(n);

for i:=1 to n do

begin

write('nhap a[',i,']= ');

readln(a[i]);

end;

for i:=1 to n do

if kt(i) then

begin

inc(dem);

b[dem]:=a[i];

end;

writeln(dem);

for i:=1 to dem do

write(b[i],' ');

readln;

end.

uses crt;

var a,b,tam:longword;

function ucln(x,y:longword):longword;

begin

while(y<>0)do

begin

tam:=x mod y;

x:=y;

y:=tam;

end;

exit(x);

end;

begin

clrscr;

write('nhap a: ');

readln(a);

write('nhap b: ');

readln(b);

write(ucln(a,b));

readln;

end.

uses crt;

var n:int32;

s:extended;

begin

clrscr;

write('nhap so: ');

readln(n);

if n>=1000 then

begin

n:=n-1000;

s:=s+5550000;

end

else

begin

s:=s+n*5550;

n:=0;

end;

if n>=1000 then

begin

n:=n-1000;

s:=s+5450000;

end

else

begin

s:=s+n*5450;

n:=0;

end;

if n>=1000 then

begin

n:=n-1000;

s:=s+5250000;

end

else

begin

s:=s+n*5250;

n:=0;

end;

if n>1 then

s:=s+n*5550;

s:=s+(s*10/100);

write(s:0:0);

readln;

end.

uses crt;

var f1,f2:text;

n,m,i,j:integer;

a:array[1..50,1..15]of integer;

b,c:array[1..50]of real;

tam:real;

begin

clrscr;

assign(f1,'D:\FP_LAM\7.1\inp\XH.INP');

reset(f1);

assign(f2,'D:\FP_LAM\7.1\out\XH.OUT');

rewrite(f2);

readln(f1,n,m);

for i:=1 to n do

for j:=1 to m do

read(f1,a[i,j]);

for i:=1 to n do

begin

for j:=1 to m do

b[i]:=b[i]+a[i,j];

b[i]:=b[i]/m;

end;

for i:=1 to n do

c[i]:=b[i];

for i:=1 to n do

for j:=n downto i+1 do

if c[i]<c[j]then

begin

tam:=c[i];

c[i]:=c[j];

c[j]:=tam;

end;

for i:=1 to n do

for j:=1 to n do

if b[i]=c[j] then

begin

writeln(f2,j);

break;

end;

close(f2);

readln;

end.

uses crt;

var f1,f2:text;

i,tam,max,n:int32;

a:array[1..100000]of integer;

begin

clrscr;

assign(f1,'D:\FP_LAM\7.1\inp\MB.INP');

reset(f1);

assign(f2,'D:\FP_LAM\7.1\out\MB.OUT');

rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

i:=0;

while(i<=n)do

begin

inc(i);

tam:=i;

while(a[tam]=a[tam+1])and(tam<=n)do

inc(tam);

if max<tam-i+1 then

max:=tam-i+1;

i:=tam;

end;

write(f2,max);

close(f2);

end.

uses crt;

var f1,f2:text;

st:string;

dem,i,d:integer;

c:array[1..100]of string;

a:array[1..100]of integer;

begin

clrscr;

assign(f1,'D:\FP_LAM\7.1\inp\CUM.INP');

reset(f1);

assign(f2,'D:\FP_LAM\7.1\out\CUM.OUT');

rewrite(f2);

read(f1,st);

d:=0;

for i:=1 to length(st)do

if st[i]='('then

begin

inc(d);

a[d]:=i;

end

else

if st[i]=')'then

begin

inc(dem);

c[dem]:=copy(st,a[d],i-a[d]+1);

dec(d);

end;

if d<>0 then

write(f2,-1)

else

begin

writeln(f2,dem);

for i:=1 to dem do

writeln(f2,c[i]);

end;

close(f2);

end.

uses crt;

var f1,f2:text;

s,i,n:int32;

begin

clrscr;

assign(f1,'D:\FP_LAM\7.1\inp\TAXI.INP');

reset(f1);

assign(f2,'D:\FP_LAM\7.1\out\TAXI.OUT');

rewrite(f2);

read(f1,n);

for i:=1 to n do

case i of

1:s:=s+14000;

2..10:s:=s+13000;

else

s:=s+11000;

end;

write(f2,s);

close(f2);

end.

uses crt;

var f1,f2:text;

a,b:array[1..100]of integer;

i,j,k,tam,n:integer;

begin

clrscr;

assign(f1,'D:\FP_LAM\7.1\inp\PHONGKHAM.INP');

reset(f1);

assign(f2,'D:\FP_LAM\7.1\out\PHONGKHAM.OUT');

rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i],b[i]);

for i:=1 to n do

for j:=n downto i+1 do

if a[i]>a[j]then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

tam:=b[i];

b[i]:=b[j];

b[j]:=tam;

end;

k:=0;

for i:=1 to n do

if k>a[i]then

k:=k+b[i]

else

k:=a[i]+b[i];

write(f2,k);

close(f2);

end.

uses crt;

var f1,f2:text;

ho,ten,tlot:array[1..100]of string;

st:string;

j,i,d,n:integer;

tam:string;

procedure change;

begin

tam:=ten[i];

ten[i]:=ten[j];

ten[j]:=tam;

tam:=ho[i];

ho[i]:=ho[j];

ho[j]:=tam;

tam:=tlot[i];

tlot[i]:=tlot[j];

tlot[j]:=tam;

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\7.1\inp\SAPXEP.INP');

reset(f1);

assign(f2,'D:\FP_LAM\7.1\out\SAPXEP.OUT');

rewrite(f2);

readln(f1,n);

for i:=1 to n do

begin

readln(f1,st);

for j:=1 to length(st)do

if st[j]=' 'then

begin

ho[i]:=copy(st,1,j-1);

d:=j+1;

break;

end;

for j:=length(st)downto 1 do

if st[j]=' 'then

begin

ten[i]:=copy(st,j+1,length(st)-j);

break;

end;

tlot[i]:=copy(st,d,j-d);

end;

for i:=1 to n do

for j:=n downto i+1 do

if ten[i]>ten[j]then

begin

change;

end

else

if ten[i]=ten[j]then

if tlot[i]>tlot[j]then

begin

change;

end

else

if tlot[i]=tlot[j]then

if ho[i]>ho[j]then

begin

change;

end;

for i:=1 to n do

if tlot[i]='' then

writeln(f2,ho[i],' ',ten[i])

else

writeln(f2,ho[i],' ',tlot[i],' ',ten[i]);

close(f2);

readln;

end.

uses crt;

var i,j,k,n,max:int32;

a:array[1..10000]of string;

b:array[1..10000]of int32;

st:string;

begin

clrscr;

readln(n);

readln(st);

k:=1;

for i:=1 to length(st)do

if(st[i]=' ')then

inc(k)

else

a[k]:=a[k]+st[i];

for i:=1 to n do

val(a[i],b[i]);

for i:=1 to n-2 do

for j:=i+1 to n-1 do

for k:=j+1 to n do

if b[i]*b[j]*b[k]>max then

max:=b[i]*b[j]*b[k];

write(max);

readln;

end.

var i:integer;

begin

clrscr;

for i:=1000 to 9999 do

if sqr((i div 100) + (i mod 100))=i then

writeln (i);

readln;

end.

var n1,n2,i:integer;

function bt(m:integer):boolean;

var kt:boolean;

h:integer;

begin

kt:=true;

while (m>=10) do

begin

h:=m mod 10;

m:=m div 10;

if h< (m mod 10) then

begin

kt:=kt;

kt:=false;

end;

end;

bt:=kt;

end;

begin

clrscr;

write ('nhap n1:'); readln (n1);

write ('nhap n2:'); readln (n2);

for i:=n1 to n2 do

if bt(i)=true then

write (i,' ');

readln;

end.

1000 1012 1019 1024 1035 1034 1034 1048 1050 1062

1063 1069 1087 1091 1094 1092 1102 1100 1117 1123

1129 1151 1153 1164 1171 1181 1180 1190 1200 1214

1217 1223 1229 1231 1237 1249 1259 1277 1279 1283

1289 1294 1297 1301 1304 1308 1320 1321 1328 1360

1368 1372 1381 1390 1402 1420 1428 1429 1434 1438

1444 1452 1453 1458 1470 1484 1480 1482 1488 1492

1498 1512 1523 1530 1544 1540 1554 1555 1562 1570

1578 1583 1597 1601 1607 1608 1613 1620 1622 1622

1637 1657 1663 1660 1668 1693 1697 1699 1700 1720

uses crt;

var f1,f2:text;

i,j,m,x,y,k:integer;

a:array[1..50,1..50]of integer;

b:array[1..50,1..50]of boolean;

kt:boolean;

function nt(x:integer):boolean;

var ii:integer;

begin

if x<2 then

exit(false);

for ii:=2 to x div 2 do

if x mod ii=0 then

exit(false);

exit(true);

end;

begin

clrscr;

assign(f1,'D:\FP_LAM\18.1\inp\MATRANNT.INP');

reset(f1);

assign(f2,'D:\FP_LAM\18.1\out\MATRANNT.OUT');

rewrite(f2);

readln(f1,m);

for i:=1 to m do

for j:=1 to m do

read(f1,a[i,j]);

for i:=1 to m do

for j:=1 to m do

b[i,j]:=false;

for i:=1 to m do

for j:=1 to m do

if nt(a[i,j])then

begin

inc(k);

if k mod 10=0 then

writeln(f2,a[i,j])

else

write(f2,a[i,j],' ');

b[i,j]:=true;

end;

for i:=1 to m do

begin

kt:=true;

for j:=1 to m do

if b[i,j]=false then

begin

kt:=false;

break;

end;

if kt then

break;

end;

x:=i;

for i:=1 to m do

begin

kt:=true;

for j:=1 to m do

if b[j,i]=false then

begin

kt:=false;

break;

end;

if kt then

break;

end;

y:=i;

writeln(f2);

writeln(f2,'-------------------------------------------------------');

for i:=1 to m do

write(f2,a[i,y],' ');

writeln(f2);

for i:=1 to m do

write(f2,a[x,i],' ');

writeln(f2);

writeln(f2,'-----------------------------');

write(f2,'A[',x,',',y,']-',a[x,y]);

close(f2);

//readln;

end.