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
nomer1
j en ai marre
123
Random
procedure escribir caracter n veces
GABRIELLA ALVES DA SILVA 600307538
practica 11 ejercicio 2
Урок 3, задача 6 (1479). Без циклов
rf cdx
First programm