Umístnení souboru www.TrSek.com/zadania/najvacsi_delitel.pas{ NAJVACSI_DELITEL.PAS Copyright (c) Pheo }
{ Program na urèenie najväèšieho spoloèného delite¾a dvoch èísel. }
{ }
{ Datum:24.04.2005 http://www.trsek.com }
PROGRAM najvacsi_delitel;
uses crt;
var a,a1,b,b1,c,d,z,p:integer;
begin
clrscr;
gotoxy(20,5); write('Zadaj cislo a : ');
read(a); a1:=a;
gotoxy(20,6); write('Zadaj cislo b : ');
read(b); b1:=b;
if a < b then begin p:=a ; a:=b; b:=p; end;
repeat
z := a mod b;
a:=b;
if z<>0 then b:=z;
until z=0;
gotoxy(20,8); write('NSD (',a1,',',b1,') = ',b);
repeat until keypressed
end.