-
-
0非关注此吧的人禁止复制此吧的内容
-
3var a,b,c,d:real; i,s:longint; begin; while not eof do begin; readln(s); for i:=1 to s do begin; readln(a,b,c); d:=b*b-4*a*c; if d<0 then
-
0var a,z:string; s,b,c,i:longint; begin while not eof do begin c:=0; readln(a); b:=length(a); for i:=1 to 335 do z:=concat(z,a); for i:=1 to
-
0uses math; var a:array[1..50,1..50] of char; a1:array[1..50,1..50] of boolean; b,c,d,h,m,i,j,k,s,y,z:longint; aa,bb,ss:boolean; begin while
-
0var i,j,k,l,m,n:longint; begin while not eof do begin k:=0; l:=0; readln(i); if (i mod 2<>0) and (i<>1) then repeat j:=j+1; if (
-
0var a:string; i:longint; begin while not eof do begin readln(a); for i:=1 to length(a) do if (ord(a[i])>=1) and (ord(a[i])<=127) then
-
2var i,j,n,len:integer; rad,c,r:longint; buff:array[1..16000] of integer; num:string[5]; begin while not eof do begin readln(n); writeln(n,*!
-
2欢迎
-
0亲爱的各位吧友：欢迎来到娄山中学noip答案交流
