Yangi formatda davom etish uchun: https://uzfor.net/view.php?act=post&id=49119
Postga havola
#khalid [374] [off]
Var a,b,c,x1,x2,d,x, real;
begin
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
d:=sqr(b)-4*a*c;
If d>0 then begin x1=(-b sqrt(d))/(2*a);
x2=(-b-sqrt(d))/(2*a);
write (x1;x2); end else If d=0 then begin x=(-b)/(2*a);
write (x) end else write(yechimga ega emas);
end.
53 soniyadan keyin yozdi:
Shulani utyabmiz hoz yaqinda HTML
4 daqiqa 24 soniyadan keyin yozdi:
Begin
Writeln('Hello World');
end.
begin
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
d:=sqr(b)-4*a*c;
If d>0 then begin x1=(-b sqrt(d))/(2*a);
x2=(-b-sqrt(d))/(2*a);
write (x1;x2); end else If d=0 then begin x=(-b)/(2*a);
write (x) end else write(yechimga ega emas);
end.
53 soniyadan keyin yozdi:
Shulani utyabmiz hoz yaqinda HTML
4 daqiqa 24 soniyadan keyin yozdi:
Begin
Writeln('Hello World');
end.