Написать программу, которая вычисляет наибольший общий делитель двух целых чисел Паскаль
Answers & Comments
denisstep99
Var a, b: integer; begin Writeln('Введите два числа'); Readln(a, b); repeat if a > b then a := a Mod b else b := b Mod a; until (a = 0) Or (b = 0); writeln('НОД = ', a + b); end.
Answers & Comments
begin
Writeln('Введите два числа');
Readln(a, b);
repeat
if a > b then a := a Mod b else
b := b Mod a;
until (a = 0) Or (b = 0);
writeln('НОД = ', a + b);
end.