Дано трехзначное число: 1) найти сотни, десятки и единицы, 2) найти сумму и произведение его цифр, 3) найти число, полученное при прочтении исходного числа справа налево, 4) в числе зачеркнули первую слева цифру и приписали ее справа. найти полученное число. максимум
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
var (s,d,e):=(n div 100, (n div 10) mod 10, n mod 10);
Writeln('Cотни ',s,', десятки ',d,', единицы ',e);
Writeln('Сумма цифр ',s+d+e,', их произведение ',s*d*e);
Writeln('Справа налево: ',100*e+10*d+s);
Writeln('Перестановка сотен в конец: ',100*d+10*e+s)
end.
Пример
328
Cотни 3, десятки 2, единицы 8
Сумма цифр 13, их произведение 48
Справа налево: 823
Перестановка сотен в конец: 283