Дано трехзначное целое число Х.

Найти остаток от деления произведения всех

его цифр на сумму всех его цифр. Вывести новое число Y, поменяв местами

вторую и третью цифру числа X.

Question

Информатика

Ашет

15 февраля, 15:56

Дано трехзначное целое число Х.

Найти остаток от деления произведения всех

его цифр на сумму всех его цифр. Вывести новое число Y, поменяв местами

вторую и третью цифру числа X.

+3

Ответы (1)

Знаете ответ на вопрос?

Абдулмежит · 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.