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

решение вопроса

+7
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.
ответил 17 Дек, 18 от Olenka
Получайте быстрые ответы на все возникшие вопросы, делитесь знаниями и опытом, задавайте интересные вопросы и получайте качественные ответы.
поделиться знаниями или
запомнить страничку