Предмет: Информатика,
автор: nastyush2598
Написать программу, которая вычисляет наибольший общий делитель двух целых чисел
Паскаль
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Информатика,
автор: lol19703685
Предмет: Английский язык,
автор: Kusher2006
Предмет: Математика,
автор: nokeraut
Предмет: Биология,
автор: Elnuryo
Предмет: Алгебра,
автор: Maksimod