program Kvadrat_tenlik;
var
d,a,b,c:real;
x1,x2:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
d:=b*b-4*a*c;
if d>0 then
begin x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1:2:2);
writeln('x2=',x2:2:2);...
More
program Kvadrat_tenlik;
var
d,a,b,c:real;
x1,x2:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
d:=b*b-4*a*c;
if d>0 then
begin x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1:2:2);
writeln('x2=',x2:2:2);
end
else
writeln('helli yoxdur');
readln;
end.
Less
