一.var a,b:real;begina:=(-b+sqrt(b*b-4*a*c))/(2*a);b:=(-b-sqrt(b*b-4*a*c))/(2*a);writeln(a,b);end.二.var i:integer;beginfor i:=1 to 30 do
if(2*i+(30-i)*4=90) then writeln('ji:',i,'tu',30-i);end.三.var a,b,c,i:integer;a:=1;b:=72;c:=123;writeln(a);writeln(b);writeln(c);writeln(a:3);writeln(b:3);writeln(c:3);end.四.感觉数据太大了。。。
|