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

Question

Информатика

Линя

8 июля, 11:21

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

+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.