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
sp2014e4
Program summa
janja - naloga 1 - 25.1.2012
05 ariketa
проверка числа на отсутствие возрастающих и убывающих четвёрок
practica 1 ejercicio 4
SP2013E1b
BITcustom
Подсчёт количества единичных битов в десятичном числе от 0 до 15
eje8