Дано четырехзначное число. вывести последовательно на экран сумму его цифр, произведение его цифр "число перевертыш"

Question

Информатика

Иринка

6 апреля, 21:44

Дано четырехзначное число. вывести последовательно на экран сумму его цифр, произведение его цифр "число перевертыш"

+2

Ответы (1)

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

Манюта · Answer 1

Var

a, b, c, d, e:longint;

begin

readln (a) ;

b:=a biv 1000;

c:=a biv 100 mod 10;

d:=a biv 10 mod 10;

e: = a mod 10;

writeln (b+c+d+e) ;

writeln (b*c*d*e) ;

writeln (e, d, c, b) ;

end.