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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.