Question

Daje najlepsze pierwszej osobie lub drugiej która odpowie .Pliss to na dziś.

PASCAL

Oblicz NWD(Największy wspólny dzielnik ) dla trzech liczb wprowadzonych przez użytkownika.

Answer 1

Link do kodu:

http://pastebin.com/7ApyVUbQ

 

Kod: 

Function NWD(A, B: Integer): Integer; overload;
Var C: Integer;
Begin
While (B <> 0) Do
Begin
C := A mod B;
A := B;
B := C;
End;
Result := A;
End;

Function NWD(A, B, C: Integer): Integer; overload;
Begin
Result := NWD(A, NWD(B, C));
End;

Var A, B, C: Integer;
Begin
Readln(A, B, C);
Writeln(NWD(A, B, C));
End.

Answer 2

Hmm.. Najprosciej to chyba tak:

 

Program nwd;

Function nwd(a,b:integer):integer;
 Var c:integer;
 Begin
  While b<>0 do
   Begin
    c:=b;
    b:=a mod b;
    a:=c;
   End;
  nwd:=a;
 End;

Var a,b,c:integer;

Begin
 WriteLn('Wprowadz trzy liczby: ');
 ReadLn(a,b,c);
 WriteLn('NWD tych liczb to: ',nwd(a,nwd(b,c)));
 ReadLn;
End.

 

 

EDIT. WERSJA BEZ "Function"

 

Var a,b,c,d:integer;

Begin
 WriteLn('Wprowadz trzy liczby: ');
 ReadLn(a,b,c);
 while b<>0 do
  begin
   d:=b;
   b:=a mod b;
   a:=d;
  end;
 b:=c;
 while b<>0 do
  begin
   d:=b;
   b:=a mod b;
   a:=d;
  end;
 WriteLn('NWD tych liczb to: ',a);
 ReadLn;
End.