Условие задачи
Используя вспомогательные алгоритмы и подпрограммы, задайте в Паскале вычисление наибольшего общего делителя для произвольных входных данных. Входные данные задайте самостоятельно путем ввода с клавиатуры.
Программная реализация обязательна. На проверку можно прислать коды программ и результаты работы в виде скриншота окна программы Паскаль с отображением кода и результата работы
Ответ
var
a, b: integer;
procedure nod (var a,b: integer); //процедура НОД
var n: integer;
begin
repeat //цикл, пока а или b не станет равным 0
if a b then //если а больше чем b
a := a mod b //то ищем остаток от деления а на b
else //если а...
Потяни
