Помогите решить на PascalABC.NET в синтаксисе Pascal ABC. Даны естественные числа

Question

Помогите решить на PascalABC.NET в синтаксисе Pascal ABC. Даны естественные числа

Помогите решить на PascalABC.NET в синтаксисе Pascal ABC.

Даны натуральные числа m и n. Используя метод Евклида, отыскать наиболь-ший общий делитель чисел m и n. (Метод Евклида: большее из 2-ух чисел де-лят на наименьшее, затем меньшее на 1-ый остаток, дальше 1-ый остаток на второй, 2-ой на 3-ий и так до тех пор, пока в остатке не получится нуль; тогда последний делитель является НОД данных чисел.)

Задать свой вопрос

Владимир Шелкалин
Информатика
2019-02-21 07:56:15
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

1.Почему человек убивший юшку назван радостным прохожим?2.Что поменялось после погибели

помогите пожалуйста) 137 упражнение

сочинение-описание с эпитетами

какие из дробей являются правильными 2/7 7/7 3/2 8/9 9/8 8/11

Решите уравнение x(2х-7,2)(6+3x)=0 Безотлагательно 15 БАЛЛОВ ДАЮ

А и Б посиживали на трубе. А свалилась Б пропала. Кто

Помогите решить пожалуйстаУпростите неравенства (2+3)(1-3)+3

решите номер 3 пожалуйстаДаю 15 б.

По наклонной плоскости длиной 5 м поднимают груз, массой 80 кг

Что вы собираете в лесу?Какие соблюдаете управляла поведения?

Арсений Осуль · Answer 1 · 2019-02-21 08:03:08+3:00

Var
m,n,t:integer;
begin
Write('Введите пару естественных чисел: '); Read(m,n);
while nlt;gt;0 do begin
    m:=m mod n;
    t:=m; m:=n; n:=t
    end;
Writeln('НОД=',m)
end.

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

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

О проекте

Помогите решить на PascalABC.NET в синтаксисе Pascal ABC. Даны естественные числа

Добро пожаловать!