aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibuing

Hier wird für Sie der größte gemeinsame Teiler ausgerechnet.

 
Z.B.: 50 : 10 = 5 
  und 30 : 10 = 3

 => ggT(50,30) = 10

Programm

program ggt (input, output);

  var
  a,
  b : longint;

begin
  write('Erste Zahl? ');
  readln(a);
  write('Zweite Zahl? ');
  readln(b);

  while a <> b do
  begin
    If a > b 
    then a := a - b
    else b := b - a;
  end;
  writeln('=> ggT = ', a);
  readln;
end.

---

Gastarbeiter 12:45, 25. Mär 2006 (CET)

---