Описать функцию, позволяющую находить наибольший общий делитель двух заданных чисел. . заранее .
182
327
Ответы на вопрос:
Var a,b: integer; begin writeln ('введи 2 числа'); readln (a,b); while a< > b do if a> b then a: =a-b else b: =b-a; writeln (a); end.
Популярно: Информатика
-
ryzhovaelena121.03.2022 03:12
-
ssamandrakova30.01.2020 21:33
-
lizavetabelkin26.07.2021 17:56
-
Артем83420.09.2020 19:07
-
NastyaANIME28.08.2022 10:34
-
alenaFox45705.10.2021 20:11
-
Thfhgdrhd12.07.2020 03:17
-
mandarinka37721.04.2020 05:02
-
Yan11630.05.2022 07:40
-
ilychshetebyaa28.08.2021 21:01