|
СПС всем изучать буду ПАСКАЛЬ
ТОКА уже изучил питона и басик !!)
добавлено через 37 минут
в редакторе работает а в екзешнике падает почему???
program z;
Var a,b,d,c,e,f:real;
begin
readln (a);
readln (b);
readln (c);
d:=(b*b)-((4*a)*c);
writeln (d);
if d>0 then
begin
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
writeln(e);
writeln(f);
Writeln('дискриминант отрицательный');
Writeln('дискриминант отрицательный');
end;
if d=0 then
begin
e:=(-b)/(2*a);
writeln(e);
Writeln('одно решение');
Writeln('одно решение');
end;
if d<0 then
Writeln('дискриминант отрицательный !!!!лузер!!!');
Writeln('дискриминант отрицательный !!!!лузер!!!');
End.
|