Ответы на вопрос:
Var m,n,t: integer; begin write('введите пару натуральных чисел: '); read(m,n); while n< > 0 do begin m: =m mod n; t: =m; m: =n; n: =t end; writeln('нод=',m) end. примеры введите пару натуральных чисел: 640 1820 нод=20 введите пару натуральных чисел: 1820 640 нод=20
Популярно: Информатика
-
Eennoottt05.07.2020 12:20
-
mashasandalkina04.10.2021 10:51
-
aliko70517.11.2020 19:35
-
timon790130.05.2020 16:41
-
oksana141007.04.2023 05:44
-
том5555120.06.2022 13:56
-
mariaalimardonova09.03.2020 03:28
-
vika26vf26.07.2022 06:49
-
Камелек05.05.2023 14:36
-
UlyanaAleks05.06.2020 14:09