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

Answer 3

а можно эту же программу только на с++?

Answer 4

// 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

Answer 5

а можно эту же программу только на с++?

Answer 6

Можно. Но язык надо указывать заранее: почему Вы заставляете людей дважды делать работу? Потому, что она для Вас бесплатная?

Answer 7

Простите мне самому не удобно просить просто я очень невнимателен.

Answer 8

сможете?

Answer 9

пожалуйста