Question

Пожалуйста, решите, второй раз отправляю, дам 90 балов. Сделайте программу, не копированную.
Pascal, команды div и mod.
Дано четырехзначное число. Вывести последовательно на экран сумму его цифр, произведение его цифр, «число-перевертыш».​

Answer 1

Ответ:

program z;

var a: integer;

begin

read(a);

writeln(a div 1000 + a div 100 mod 10 + a mod 100 div 10 + a mod 10);

writeln((a div 1000) * (a div 100 mod 10) * (a mod 100 div 10) * (a mod 10));

writeln(a mod 10,a mod 100 div 10,a div 100 mod 10,a div 1000)

end.

Объяснение:

работает только с четырехзначными числами

если число заканчивается на 0, то «число-перевертыш» начнётся с 0