Алгоритм евклида для вычисления нод двух натуральных чисел формируется так нужно заменять большее число на разность большего и меньшего до тех пор пока одно из них не станет равно нулю тогда второе и есть нод напишите программу которая реализует этот алгоритм какой цикл тут нужно использовать

Var   a,b: integer; begin   write('введите два натуральных числа '); readln(a,b);   while a< > b do       if a > b then a : = a - b       else b : = b - a;   writeln('нод=',a) end. тестовое решение: введите два натуральных числа 28 16 нод=4

#include < stdio.h> #include < conio.h> main() {      int x,y,n,z; printf("chasy minuty\n"); scanf ("%d%d",& x,& y); x=x*5; if (x> y) {  while (x< y)  { y++; }  printf ("%d",y); }      else      { z=60-y;         y=0;         while (x> y)      {y++; }      printf ("%d",z+y);       }      getch(); }достаточно сыро,но думаю принцип поймешь и сам доработаешь ; )

// pascalabc.net 3.3 begin   var n: =readinteger('n = ');   var a: =readarrinteger('введите '+n+' чисел: ',n);   writeln('1. максимальное число, кратное 5 = ',             a.where(x-> x mod 5=0).max); writeln('2. сумма чисел, оканчивающихся на 4 = ',             a.where(x-> x mod 10=4).sum);   writeln('3. сумма чисел, кратных 7 = ',a.where(x-> x mod 7=0).sum);   var b: =arrrandom(n,10,90).println;   writeln('4. сумма всех чисел, кратных 6 и оканчивающихся на 4 = ',     b.where(x-> (x mod 6=0)and(x mod 10=); end. пример: n =  30 введите 30 чисел: 73 81 14 32 26 20 26 83 36 39 69 22 10 75 24 47 40 12 27 20 78 15 72 18 83 59 40 89 47 87 1. максимальное число, кратное 5 = 75 2. сумма чисел, оканчивающихся на 4 = 38 3. сумма чисел, кратных 7 = 14 84 57 88 50 41 85 28 15 47 48 46 69 41 56 89 19 54 74 33 58 83 66 40 35 89 80 12 86 46 14 4. сумма всех чисел, кратных 6 и оканчивающихся на 4 = 1384. сумма всех чисел, кратных 6 и оканчивающихся на 4 = 0