Question

Дано трехзначное целое число Х .
Найти остаток от деления произведения всех
его цифр на сумму всех его цифр. Вывести новое число Y,поменяв местами
вторую и третью цифру числа X.

Answer 1

begin

 var X := 125;

 var Prod := (X div 100) * (X div 10 mod 10) * (X mod 10);

 var Sum := (X div 100) + (X div 10 mod 10) + (X mod 10);

 Println('Остаток от деления:', Prod mod Sum); //Остаток от деления: 2

 var Y := (X div 100) * 100 + (X mod 10) * 10 + (X div 10 mod 10);

 Println(Y); //152

end.

Answer 2

// PascalABC.NET 3.4.2, сборка 1782 от 01.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var число := ReadInteger('Введите трехзначное натуральное число:');

 var (сотни, единицы) := (число div 100, число mod 10);

 var десятки := число div 10 mod 10;

 var ПроизведениеЦифр := сотни * десятки * единицы;

 var СуммаЦифр := сотни + десятки + единицы;

 Println('Искомый остаток равен', ПроизведениеЦифр mod СуммаЦифр);

 Println('Новое число', 100 * сотни + 10 * единицы + десятки)

end.

Введите трехзначное натуральное число: 389

Искомый остаток равен 16

Новое число 398