Ответы
Ответ дал:
0
Ответ:
var
a, b, c: integer;
begin
Writeln('Введите два числа');
Read(a, b);
repeat
if a > b then
a := a mod b
else b := b mod a
until (a = 0) or (b = 0);
c := a + b;
Writeln('Наибольший общий делитель: ', c);
end.
Приложения:
Ответ дал:
0
begin
var (a, b) := ReadInteger2;
while b <> 0 do
(a, b) := (b, a mod b);
Print(a)
end.
var (a, b) := ReadInteger2;
while b <> 0 do
(a, b) := (b, a mod b);
Print(a)
end.
Похожие вопросы
2 года назад
2 года назад
8 лет назад
9 лет назад