Найти сумму цифр xy+zf числа xyzf

Пример работы программы:

Ввод 1234

Вывод 14

Question

Информатика

Магомедамин

17 августа, 09:42

Найти сумму цифр xy+zf числа xyzf

Пример работы программы:

Ввод 1234

Вывод 14

+5

Ответы (2)

Знаете ответ на вопрос?

Сервеник · Answer 1

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

Ванатолий · Answer 2

var a:integer;

begin

read (a) ;

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

end.

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

Найти сумму цифр xy+zf числа xyzf

Пример работы программы:

Ввод 1234

Вывод 14