Написать программу, которая вычисляет наибольший общий делитель двух целых чисел

286

488

Посмотреть ответы 2

Ответы на вопрос:

Мелочь83

Другие предметы

4,4(20 оценок)

var
nl,n2:integer; { числа, НОД которых надо найти }
nod:integer; { наибольший общий делитель }
г:integer; { остаток от деления nl на п2 }
begin
writeln('Вычисление наибольшего общего делителя');
writeln('для двух целых чисел.');
write('Введите в одной строке два числа ');
writeln('и нажмите <Enter>');
write('->');
readln(nl,n2);
while (nl mod n2)<>0 do
begin
r:=nl mod n2; { остаток от деления}
nl:=n2;
n2:=r;
end;
nod:=n2;
writeln('НОД чисел ',nl,' и ',п2,' это ',nod);
readln;
end.