Question

Napisz program (w Pascalu) liczący największy wspólny dzielnik dwóch liczb metodą Euklidesa.

Proszę o tekst tego programu.

Answer 1

program nwd12;

var a,b:integer;

function nwd(a,b:integer):integer;

var c:integer;

begin

repeat

c:=a mod b
a:=b;

b:=c;

until (b=0)

nwd:=a;

end;

begin

writeln('podaj a');

readln(a);

writeln('podaj b');

readln(b);
write(nwd(a,b));

readln;

readln;

end.

Jeśli masz jakieś pytania, albo zrobiłam błąd to pisz wiadomość do mnie .