Bergas

Sukūriau programa betkokiom kvadratinėm lygtim spręsti, stai kodas : http://pastebin.com/iH5Ukqek Paleidus programa atrodo stai taip : http://img31.imageshack.us/img31/6167/z73i.jpg Taciau kaip reik sulygiuot tus skaicius kad butu graziau taip : http://img191.imageshack.us/img191/8365/clq7.jpg[/img] Tie skaicia gal but kad ir tokie -2-> 251 2--> Kad būtu didziausio skaiciaus gale.:-) Ps. Nuotraukoi senas kodas pataisiau ta dali Lygties atvaizdavimas.

program Balionai; var n, // Išviso kiek buvo balionų. k, // Kiek balionų sprogo. d, // Draugų skaičius. a, // Kiek balionų teko Andriui. m :integer; // Po kiek balionų gavo kiekvienas draugas. begin WriteLn('Įvesk kiek išviso buvo balionų:'); ReadLn(n); WriteLn('Įvesk kiek balionų sprogo:' ); ReadLn(k); WriteLn('Įvesk draugų skaičių:'); ReadLn(d); a := ((n-k) div (d+1))+((n-k) mod (d+1)); m := (n-k) div (d+1); WriteLn('Andriui teko ',a,' balionai.'); WriteLn('Kiekvienas draugas gavo po ',m,' balionus.'); Readln; end.