55

Дано четырехзначное число. Найти равна ли сумма первых его двух чисел последним…

02 марта 2023

Дано четырехзначное число. Найти равна ли сумма первых его двух чисел последним двумчислам?

категория: информатика



46

Program Number; Var n: Integer; Begin Write ('Enter number: '); ReadLn (n); if (n div 1000)+(n div 100) mod 10)=(n div 10) mod 10+(n mod 10) then Write ('Yes') else Write ('No'); ReadLn; End.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...