1. Информатика
  2. Решить на pascalabc.net в

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

ден1019 ден1019    3   01.09.2019 10:50    2

Ответы
Г0ошан4ик Г0ошан4ик  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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nsmorizevs nsmorizevs  22.06.2019 18:10
Какое устройство не находиться в системном блоке? 1.видеокарта 2.процессор 3.сканер 4.жёсткий диск 5.сетевая карта...
Viksa1451 Viksa1451  22.06.2019 18:10
Чем различаются режимы вставка и вставить в офисных приложениях ms windows? 1) это разные названия одного и того же действия. 2) через режим вставка можно вставить только...
eptvz4 eptvz4  04.06.2019 18:40
Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 25. program b08; var x, a,b: interger; begin readln(x); a: =0; b: =0; while...
tratatya tratatya  04.06.2019 18:40
Написать программу в pascal.abc вывести предпоследнее слово во введенной пользователем строке....
vladajoyful vladajoyful  31.07.2019 05:40
Вкакой системе счисления верно равенство 3х+3х=10х? а) двоичной б) десятичной с) шестеричной е) восьмеричной...
iworld2rist iworld2rist  11.07.2019 17:30
Злая колдунья заколдовала принтер деда мороза и вместо имен 6 , которым дед мороз сегодня понесет подарки, он выдал непонятный текст. снеговик не обратил на это внимания...
natalia1676 natalia1676  11.07.2019 17:30
Нечетные элементы массива заменить значением 25, четные - значением номера элемента в квадрате...
D102006 D102006  11.07.2019 17:30
Начав тренировки, спортсмен в 1 день пробежал 10 км. каждый день он увеличивал дневную норму бега на 10% нормы предыдущего дня. какой суммарный путь пробежит спортсмен...
dvofgisf dvofgisf  09.08.2019 03:10
Всказочной стране у провайдера есть высокоскоростной канал, обеспечивающий скорость получения им информации 222 бит в секунду. информация от провайдера к клиентам передается...
Adventurous Adventurous  09.08.2019 03:10
Внимательно прочитайте предложения. если приглядеться, то буквы нескольких подряд идущих слов образуют термины, связанные с информатикой и компьютерами. найдите их и дайте...

Популярные вопросы