Question

Найти сумму цифр x*y+z*f числа xyzf
Пример работы программы :
Ввод 1234
Вывод 14

Answer 1

var a:integer;

begin

read (a);

write ((a div 1000) * (a div 100 mod 10) + (a mod 100 div 10) * (a mod 10))

end.

Answer 2

var a:Integer;

begin

 readln( a );

 write( (a div 1000) * ((a div 100) mod 10) + ((a div 10) mod 10) * (a mod 10) );

end.

Пояснение:

a - 4-значное число, тогда:

a div 1000 - первая цифра числа.

(a div 100) mod 10 - вторая цифра числа.

(a div 10) mod 10 - третья цифра числа.

a mod 10 - четвёртая цифра числа.