program ALG_EUKLIDESA;
uses CRT;
var i,n,m,a:integer;
begin
writeln;
writeln('Wpisz pierwsza liczbe do algorytmu Euklidesa ');
readln(n);
writeln('Wpisz druga liczbe');
readln(m);
if n
else
a:=m;
i:=a;
while i>0 do begin
if (i=1) then
begin
writeln('Podane liczby nie posiadaja NWD');
break;
end
else If ((m mod i)=0) and ((n mod i)=0) Then
begin
writeln('Liczba Euklidesa NWD(',m,',', n,')=', i);
break;
end
else
i:=i-1;
end;
writeln('Nacisnij klawisz aby wyjsc');
readln;
end.
Przeczytaj podobne teksty
Treść zweryfikowana i sprawdzona
Zgodnie z misją, Redakcja serwisu dokłada wszelkich starań, aby dostarczać rzetelne i sprawdzone treści edukacyjne.
Dodatkowe oznaczenie "Sprawdzona treść" wskazuje, że dany materiał został zweryfikowany przez Redakcję lub ekspertów współpracujących z serwisem.
Weryfikacja tekstu odbywa się na następujących poziomach:
1. Sprawdzenie tekstu pod kątem ewentualnych błędów ortograficznych, stylistycznych, interpunkcyjnych lub innych.
2. Weryfikacja tekstu pod kątem błędów rzeczowych.
3. Sprawdzenie materiału pod kątem ich aktualności.
Dodatkowe oznaczenie "Sprawdzona treść" wskazuje, że dany materiał został zweryfikowany przez Redakcję lub ekspertów współpracujących z serwisem.
Weryfikacja tekstu odbywa się na następujących poziomach:
1. Sprawdzenie tekstu pod kątem ewentualnych błędów ortograficznych, stylistycznych, interpunkcyjnych lub innych.
2. Weryfikacja tekstu pod kątem błędów rzeczowych.
3. Sprawdzenie materiału pod kątem ich aktualności.