Алгоритм Евклида. Составить программу для нахождения наибольшего общего делителя двух натуральных чисел M и N по алгоритму Евклида: НОД=M, если M=N; если M>N, то M=M-N, иначе N=N-M

Категория: Delphi/Pascal
2012-02-07 22:51:39
code: #pascal
program p1;
label 1;
var m,n:integer;
    prod:char;
 
begin
1:write('M= '); readln(m);
write('N= '); readln(n);
repeat
if n>m then n:=n mod m
else m:=m mod n;
until (m=0)or(n=0);
writeln('NOD= ',m+n);
 
write('Vi xotite prodoljiti? (y/n) ');  readln(prod);
if prod='y' then goto 1;
readln;
end.
Поделиться:

Похожие статьи:

теги: студенты, алгоритм, алгоритм евклида