Амиiskdhdm
24.09.2022 03:57

Решить на pascalabc.net в синтаксисе pascal abc. даны натуральные числа m и n. используя алгоритм евклида, найти наиболь-ший общий делитель чисел m и n. (алгоритм евклида: большее из двух чисел де-лят на меньшее, затем меньшее на первый остаток, далее первый остаток – на второй, второй – на третий и так до тех пор, пока в остатке не получится нуль; тогда последний делитель является нод данных чисел.)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
zzzzzzz03
06.10.2020 09:34
Var
  m,n,t:integer;
begin
  Write('Введите пару натуральных чисел: '); Read(m,n);
  while n<>0 do begin
    m:=m mod n;
    t:=m; m:=n; n:=t
    end;
  Writeln('НОД=',m)
end.

Примеры
Введите пару натуральных чисел: 640 1820
НОД=20

Введите пару натуральных чисел: 1820 640
НОД=20
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота