ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Program Sqrt1;
uses crt;
Var A, B, C, D, X1, X2 : Real;
Begin
clrscr;
	Writeln ('vvedite a  ');
	Readln (A);
        writeln ('vvedi b');
        readln (B);
        writeln('vvedi c');
        readln(c);
	D:=B*B-4*A*C;
	if A<>0
	then
		Begin
			If D<0 Then Writeln ('korney net ')
			Else
				Begin
					X1:=(-B+SQRT(D))/2*A;
					X2:=(-B-SQRT(D))/2*A;
					If X1<>X2 then
						Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
					else  Writeln (' koren ','X=',X2:8:3);
				End;
		End
	else
Writeln('');
readln;
End.

Program Sqrt1; 
Var A, B, C, D, X1, X2 : Real; 
Begin 
Writeln ('Введите коэффициенты квадратного уравнения вида '); 
Readln (A,B,C); {имхо тупо!}
D:=B*B-4*A*C; 
if A<>0 then Begin
If D<0 Then Writeln ('Корней нет! ') 
Else 
Begin 
X1:=(-B+SQRT(D))/2/A; 
X2:=(-B-SQRT(D))/2/A; 
If X1<>X2 then
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
else  Writeln (' Корень один ',X=',X2:8:3)
End;
End
else 
Writeln('Решений нет');
{в школе учили тут "readln;" ставить!}
End.

Program Sqrt1; 
Var A, B, C, D, X1, X2 : Real; 
Begin 
Writeln ('Vvedite koificenti kvodratnogo uravnenia '); 
Readln (A,B,C); 
D:=B*B-4*A*C; 
if A<>0 then Begin
If D<0 Then Writeln ('Kornei net! ') 
Else 
Begin 
X1:=(-B+SQRT(D))/2/A; 
X2:=(-B-SQRT(D))/2/A; 
If X1<>X2 then
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
else  Writeln (' Koren ODIN ','X=',X2:8:3)
End;
End
else 
Writeln('Reshenii net');
Readln;
End.