• ИЗМЕНИТЕ ПРОГРАММУ ТАК, ЧТОБЫ С ЕЕ ПОМОЩЬЮ МОЖНО БЫЛО НАЙТИ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ ПРОИЗВОЛЬНЫХ ДЕСЯТИ ЦЕЛЫХ ДВУЗНАЧНЫХ ЧИСЕЛ.СРОЧНО!!!!

    question img
    question img

Ответы 1

  • program n_6;const  n=10;var  m:array[1..n] of integer;  i,x,y,z:integer;procedure nod(a,b:integer; var c:integer);begin  while a<>b do    if a>b then a:=a-b else b:=b-a;  c:=aend;begin  Writeln('Введите 10 двухзначных целых чисел');  for i:=1 to n do Read(m[i]);  x:=m[1];  for i:=2 to n do begin y:=m[i]; nod(x,y,z); x:=z end;  Writeln('НОД=',x)end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years