Программа Умножение_без_оператора по // Вводим два целых числа Ввод Num1, Num2 : цел // Инициализируем переменную для хранения произведения Произведение := 0 // Если одно из чисел равно нулю, то произведение равно нулю Если Num1 = 0 ИЛИ Num2 = 0 То Вывод "Произведение равно 0" Иначе // Считаем произведение путем сложения Num1 Num2 раз Для i От 1 До abs(Num2) Цикл Произведение := Произведение + Num1 КонецЦикла // Если одно из чисел отрицательное, то меняем знак произведения Если (Num1 < 0 ИЛИ Num2 < 0) И НЕ (Num1 < 0 И Num2 < 0) То Произведение := -Произведение КонецЕсли // Выводим результат Вывод "Произведение чисел равно ", Произведение КонецЕсли КонецПрограммы
Алгоритм на языке КуМир:
Программа Умножение_без_оператора по
// Вводим два целых числа
Ввод Num1, Num2 : цел
// Инициализируем переменную для хранения произведения
Произведение := 0
// Если одно из чисел равно нулю, то произведение равно нулю
Если Num1 = 0 ИЛИ Num2 = 0 То
Вывод "Произведение равно 0"
Иначе
// Считаем произведение путем сложения Num1 Num2 раз
Для i От 1 До abs(Num2) Цикл
Произведение := Произведение + Num1
КонецЦикла
// Если одно из чисел отрицательное, то меняем знак произведения
Если (Num1 < 0 ИЛИ Num2 < 0) И НЕ (Num1 < 0 И Num2 < 0) То
Произведение := -Произведение
КонецЕсли
// Выводим результат
Вывод "Произведение чисел равно ", Произведение
КонецЕсли
КонецПрограммы