Var n,i: longint; Begin Assign(Input,'BAI5.INP'); Assign(Output,'BAI5.OUT'); Reset(Input); Rewrite(Output); Readln(n); I:=2; While n>1 do Begin If n mod i=0 then Begin Write(i,#32); N:=n div i; End Else i:=i+1; End; Close(Input); Close(Output); End.
Var a:array[-7..100007] of longint; i,n,res,dem: longint; Tbc: real; Begin Assign(Input,'BAI6.INP'); Assign(Output,'BAI6.OUT'); Reset(Input); Rewrite(Output); Readln(n); res:=0; dem:=0; For i:=1 to n do read(a[i]); For i:=1 to n do res:=res+a[i]; Tbc:=res/n; For i:=1 to n do If a[i]>=Tbc then inc(dem); Write(dem); CLose(Input); Close(Output); End.
Var i,n: longint; Begin Assign(Input,'D3B1.INP'); Assign(Output,'D3B1.OUT'); Reset(Input); Rewrite(Output); Readln(n); If n<0 then Write('FALSE'); If sqr(trunc(sqrt(n)))=n then write('TRUE') Else write('FALSE'); Close(Input); Close(Output); End.
Var a,b: longint; Begin Assign(Input,'D3B3.INP'); Assign(Output,'D3B3.OUT'); Reset(Input); Rewrite(Output); Readln(a,b); If a>b then write(a*10+b) Else write(b*10+a); Close(Input); Close(Output); End.
Var a,b,a1,b1: longint; Begin Assign(Input,'D3B4.INP'); Assign(Output,'D3B4.OUT'); Reset(Input); Rewrite(Output); Readln(a,b); a1:=a; b1:=b; If a mod 2 = 0 then Begin a:=a div 2; b:=b*2; End Else a:=a+1; If a mod 2 <> 0 then Begin inc(a); b:=b1+a1; End; Write(a,#32,b); Close(Input); Close(Output); End.
Uses math; Var x,tram,chuc,dvi,res,tam: longint; Begin Assign(Input,'D3B5.INP'); Assign(Output,'D3B5.OUT'); Reset(Input); Rewrite(Output); Readln(x); Tram:= x div 100; Tam:= x div 10; Chuc:= Tam mod 10; Dvi:= x mod 10; Res:=Max(Tram,Max(Chuc,Dvi)); Write(res); Close(Input); Close(Output); End.
Var a,b: 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 Assign(Input,'CBD1B2.INP'); Assign(Output,'CBD1B2.OUT'); Reset(Input); Rewrite(Output); Readln(a,b); Write(Ucln(a,b)); Close(Input); Close(Output); End.
Var n,i,k: longint; s: real; Begin Assign(Input,'CBD1B1.INP'); Assign(Output,'CBD1B1.OUT'); Reset(Input); Rewrite(Output); n:=1; While 1/n>=0.001 do Begin Inc(n); s:=s+1/n; End; Write(s:0:3); Close(Input); Close(Output); End.
TrannQuanggDatt2008
Tổng số bài gửi : 70 Join date : 16/06/2022
Tiêu đề: Re: Trần Quang Đạt ???? Sat Dec 17, 2022 9:40 pm
DQBIT02
Code:
Var i,j,n,p: longint; a: array[-7..100007] of longint; Procedure Xuli(); Var i,dem: longint; Begin dem:=0; For i:=1 to n do If a[i]=0 then inc(dem) Else dec(dem); If dem=0 then Begin p:=1; For i:=1 to n do Write(a[i],#32); Writeln; End; End; Procedure Sinh(); Var i,j: longint; Begin i:=n; While i>0 do Begin i:=n; While a[i]=1 do dec(i); A[i]:=1; For j:=i+1 to n do a[j]:=0; Xuli; End; End; Begin Assign(Input,'DQBIT02.INP'); Assign(Output,'DQBIT02.OUT'); Reset(Input); Rewrite(Output); Readln(n); P:=0; Sinh; If p=0 then write('NONE'); Close(Input); Close(Output); End.