Напишите функцию,(через процедуру ) которая находит наибольший общий делитель двух натуральных чисел. пример: введите два натуральных числа: 7006652 112307574 нод(7006652,112307574) = 1234.

Function gcd(a, b: longint): longint; // нахождение нод var   i: longint; begin   while b < > 0 do   begin       a : = a mod b;       i : = b; b : = a; a : = i   end;   gcd : = a end; var   a, b: longint; begin   write('введите два натуральных числа: '); readln(a, b);   writeln('нод(', a, ',', b, ')=', gcd(a, b)) end. тестовое решение: введите два натуральных числа: 7006652 112307574 нод(7006652,112307574)=1234

4 попрощайся и захлопни дверь

6 вс выключи .

  заголовок выйди из дома

 

3 закрой квартиру

4 поверни ключ

125 -   5/7

  х     - 2/7

х = (125 * 2/7) : 5/7 = 50 человек