home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 663 / pas / ggt.pas next >
Encoding:
Pascal/Delphi Source File  |  1992-11-24  |  332 b   |  16 lines
  1. program get_ggt;
  2.  
  3.     var x,y : integer;
  4.     
  5. function ggt(a,b:integer) : integer;
  6. begin
  7.     if b=0 then ggt:=a else ggt:=ggt(b,a mod b)
  8. end;
  9.  
  10. begin
  11.     writeln('Gib zwei Zahlen ein, deren größter gemeinsamer Teiler');
  12.     writeln('berechnet werden soll!');
  13.     readln(x); readln(y);
  14.     writeln;
  15.     writeln('Der GGT ist : ',ggt(x,y));
  16. end.