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

Question

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

Comments

На каком языке программирования необходимо реализовать данную программу?

---

Паскаль

---

ABC

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 - четвёртая цифра числа.