Új hozzászólás Aktív témák

• #4137 Balákka tag chair.94 #4109

  Új Válasz 2009-11-28 19:22:05 #4137

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Balákka

  tag

  válasz chair.94 #4109 üzenetére

  ha megmondod nekem hogy mi az euklideszi algoritmus lényege akkor megirom neked úgy.
  egyébként az általam egyszerűbbnek vélt verzió ez:
  ________________________________________________________
  program euklidesz;
  uses crt;
  var a,b:integer;
  maradek,temp:integer;
  begin
  readln(a);
  readln(b);
  while maradek<>0 do begin
  maradek:=(a mod b);
  temp:=maradek;
  b:=maradek;
  a:=b;
  end;
  writeln(temp);
  readkey;
  end.
  ________________________________________________________

Új hozzászólás Aktív témák