Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
yh
program giai_nghiem; uses Crt; var a,b,c,S:real; Begin clrscr; write('Nhap bien cua pt'); write(' ax^2 voi a=');readln(a); write('bx voi b=');readln(b); write('c voi c=');readln(c); S:=sqrt(b)-4*a*c; if S>0 then writeln('tap nghiem pt la x1=x2=',b/2*a); if S<0 then writeln('pt vo nghiem'); if S=0 then begin writeln('tap nghiem cua pt la x1=',-b-sqrt(S)/(2*a)); writeln(' x2=',-b+sqrt(S)/(2*a));end; End.
run
|
edit
|
history
|
help
0
AreaTriangulo.pas
RENAN COSTA CARLOS DA CUNHA 600623343
solar_system_n_planets_any_time
Uji soal 1
Gertie
08 repeat
solar system array
Huong11a2@
jugando v2
zadan 4