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

Question

Информатика

Юраня

12 мая, 16:27

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

+4

Ответы (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.