Index | Kontakt | Board | English | Perry Rhodan | Projeky | Pascal | Hack | Fun | Literatura | Galerie | Like/Hate | Linky | Počítadlo | Whois
Back
Down \/ Back

eukl.pas

Petr "Zweistein" Prokop


{ zwei.stein@worldonline.cz, zweistein.kgb.cz }
Program eukl; { (c) Petr "Zweistein" Prokop Program Eukleides : NejvŘtçˇ spoleźně dŘlitel dvou źˇsel } Function NSD(Aa,Bb:Integer):Integer; Begin; Repeat; if aa>bb then aa:=aa-bb; if bb>aa then bb:=bb-aa; Until aa=bb; NSD:=aa; End; var a,b:integer; Begin; Readln(A); Readln(B); writeln (NSD(a,b)); end.

(c) Zweistein 2000-2002
od 07-22-2001 byla stránka zobrazena Warning: mysql_connect(): Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2) in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 2 Warning: mysql_select_db(): Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2) in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 3 Warning: mysql_select_db(): A link to the server could not be established in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 3 Warning: mysql_query(): Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2) in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 5 Warning: mysql_query(): A link to the server could not be established in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 5 Warning: mysql_query(): Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2) in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 6 Warning: mysql_query(): A link to the server could not be established in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 6 Warning: mysql_num_rows() expects parameter 1 to be resource, boolean given in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 7 Warning: mysql_close() expects parameter 1 to be resource, boolean given in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 8
Back E-m@il Board
Up /\ Back
Index | Kontakt | Board | English | Perry Rhodan | Projeky | Pascal | Hack | Fun | Literatura | Galerie | Like/Hate | Linky | Počítadlo | Whois