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.