ViRuLenT, # ViRuLenT (08.01.2018 / 21:22)
uZaFaRaP, Бунака саволларни кайердан топябсан?Institutga tayinlanaman. Matematika va informatikadan to'plamim bor variant shulardan ishliman va savol olaman
Arey, # Arey (16.09.2018 / 08:38)
Menga informatikani sanoq sistemalari va dasturlash qismlari yoqadi. Vinchester protsessorlarga qiziqmimanManam qiziqmiman
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 2 daqiqa 44 soniyadan keyin yozdi:
Diskreminant ishleydigan programma. Pascalda :-)