program euklides z repeat.pdf

(64 KB) Pobierz

36907371 UNPDF

program euklides;

uses crt;

var m,n,r,nwd:integer;

Tak_Nie : CHAR;

begin

clrscr;

repeat

writeln('m=');readln(m);

writeln('n=');readln(n);

while m>0 do

begin

r:=n mod m;

n:=m;

m:=r;

end;

nwd:=n;

writeln('nwd=',nwd);

Writeln ('koniec ?(T)ak');

Tak_Nie:=UpCase(ReadKey)

UNTIL (Tak_Nie='T')

end.

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin