Модифицированный алгоритм Евклида для вычисления наибольшего общего делителя двух натуральных чисел, формулируется так: нужно заменять большее число на остаток от деления большего на меньшее до тех пор, пока остаток не станет равно нулю; тогда второе число и есть НОД. Напишите программу, которая реализует этот алгоритм. Входные данные
Входная строка содержит два числа, разделённые пробелом – a и b .

Выходные данные
Программа должна вывести в одной строке два числа: сначала наибольший общий делитель двух введённых чисел, а затем – количество шагов цикла, которые были выполнены.

Модифицированный алгоритм Евклида для вычисления наибольшего общего делителя двух натуральных чисел, формулируется так: нужно заменять большее число на остаток от деления большего на меньшее до тех пор, пока остаток не станет равно нулю; тогда второе число и есть НОД. Напишите программу, которая реализует этот алгоритм.

Входные данные
Входная строка содержит два числа, разделённые пробелом – a и b .

Выходные данные
Программа должна вывести в одной строке два числа: сначала наибольший общий делитель двух введённых чисел, а затем – количество шагов цикла, которые были выполнены.

Написать на Паскале,

Нажмите на рекламу ниже и сразу увидите ответ

↓

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

Simps0n

10.10.2020 13:37

Освобож- Название файла Программ- Начальный Размер ный размер после продукт архивации Процент Экономии денный объем памяти 136 Кб 28 Кб 108 Кб MS Word Мектеп...

adilet2017

27.03.2023 21:00

Представим себе , что нужно внести изменения в картины или текст вышеуказанными . Поразмышляем, что для этого нужно сделать, сколько на уйдет времени, каких трудов...

тупоумная2525

15.02.2022 06:10

Укажите К какому информационному действию соответствует осмотр достопримечательностей вашего города...

vmalina2005

26.08.2021 23:04

Выписать по 10 функций Вк и Телеги их различия...

glebKoz

14.12.2022 13:20

Внекотором каталоге хранится файл компот.doc. после того, как в этом каталоге создали подкаталог и переместили туда файл компот.doc, его полное имя стало с: \дом\рецепты\напитки\компот.doc....

LuxAeterna

14.12.2022 13:20

Напишите в паскале треугольник задан длинами сторон.если такой треугольник существует, то сообщить какой он: равносторонний, равнобедренный или разносторонний...

викуха308

08.03.2022 17:11

Паскаль составить программу нахождения трехзначных чисел сумма квадратов ,цифр которого делится на 13....

lisnyakmashenk

08.03.2022 17:11

Файл размером 128 кбайт передается через некоторое соединение со скоростью 1024 бит в секунду. определите размер файла ( кбайт ), который можно передать за то же...

Ученицав

13.04.2022 09:44

Как решить ? для хранения растрового изображения размером 128*128 пикселей отвели 2 килобайта памяти. каково максимально возможное число цветов в палитре изображения?...

vikazelenaya1

24.02.2020 04:27

Ивт 5 класс проверь себя по параграфу 16...

Ответ:

Betmen23

24.07.2022 15:50

В C++
#include <iostream>
int main()
{
    using namespace std;

    const int n = 6;
    double arr[n];

    for (int i = 0; i < n; ++i)
    {
        cout << "Enter #" << i + 1 << " element: ";
        cin >> arr[i];
    }

    for (int i = 0; i < n; ++i)
        cout << arr[i] << "   ";
    cout << endl;

    double p = 1.0;
    bool flag = false;
    for (int i = 0; i < n; ++i)
        if (arr[i] < 0)
        {
            p = p * arr[i];
            flag = true;
        }

    if (!flag)
        p = 0.0;

    cout << "Multiplication of negative: " << p << endl;

    int imax = 0;
    for (int i = 1; i < n; ++i)
        if (arr[i] > arr[imax])
            imax = i;

    double s = 0;
    for (int i = 0; i < imax; i++)
        if (arr[i] > 0)
            s += arr[i];

    cout << "Sum of positive before max: " << s << endl;

    double temp;
    for (int i = 0, m = n - 1; i < n / 2; ++i, --m)
    {
        temp = arr[i];
        arr[i] = arr[m];
        arr[m] = temp;
    }

    for (int i = 0; i < n; ++i)
        cout << arr[i] << "   ";
    cout << endl;
    return 0;
}

0,0(0 оценок)

Ответ:

kiranovm14

23.06.2022 15:35

Function Square(x1, y1, x2, y2, x3, y3: real): real;
begin
    Square := abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) / 2;
end;

var
  x1, y1, x2, y2, x3, y3, s1, s2: real;

begin
  write('Задайте первый треугольник(x1,y1,x2,y2,x3,y3): ');
  readln(x1, y1, x2, y2, x3, y3);
  s1 := Square(x1, y1, x2, y2, x3, y3);
  write('Задайте второй треугольник(x1,y1,x2,y2,x3,y3): ');
  readln(x1, y1, x2, y2, x3, y3);
  s2 := Square(x1, y1, x2, y2, x3, y3);
  if s1 > s2 then writeln('Площадь первого треугольника больше')
  else if s1 < s2 then writeln('Площадь второго треугольника больше')
  else writeln('Площади треугольников равны');
end.

p.s. проверять существуют ли такие треугольники не нужно, т.к. они уже заданы и нам нужно определить площадь большего.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку