Напиши алгоритм на языке кумир для сокращения дроби

Конечно! Сокращение дроби — это процесс деления числителя и знаменателя дроби на их наибольший общий делитель (НОД). Вот пример алгоритма на языке Кумир для сокращения дроби:

Процедура СократитьДробь(числитель, знаменатель: Целое; var сокр_числитель, сокр_знаменатель: Целое);
    Функция НОД(a, b: Целое): Целое;
    Начало
        Пока b <> 0 do
        Начало
            a := a mod b;
            a, b := b, a;
        Конец;
        Возврат a;
    Конец;

Начало
    Если знаменатель = 0 тогда
        Вывести('Ошибка: деление на ноль!');
        Вернуться;
    КонецЕсли;

    НОД_значение := НОД(числитель, знаменатель);
    
    сокр_числитель := числитель div НОД_значение;
    сокр_знаменатель := знаменатель div НОД_значение;
Конец.

В этом алгоритме:

1. Программа включает процедуру СократитьДробь, которая принимает числитель и знаменатель, а также возвращает сокращенные значения.
2. Внутри процедуры определена функция НОД, которая находит наибольший общий делитель двух чисел с использованием алгоритма Евклида.
3. Проверяется, не равен ли знаменатель нулю, чтобы избежать ошибки деления на ноль.
4. Дальше происходит сокращение дроби путем деления числителя и знаменателя на их НОД.

Если есть вопросы по этому алгоритму или нужны дополнительные пояснения, не стесняйтесь спрашивать!