Question

Дано четырехзначное число. Составить программу, которая определит равна ли сумма 1 и 2 цыфры сумме 3 и 4 цыфры. Вход 1322 выход да вход 1122 выход нет. Помогите!!!!

Answer 1

var

chislo,sum1,sum2:integer;

begin

readln(chislo);

sum1:=chislo div 1000 + chislo div 100 mod 10;

sum2:=chislo mod 10 + chislo mod 100 div 10;

if sum1=sum2 then writeln('да')

else writeln('нет');

end.

Answer 2

Язык программирования не указан. Напишу на Haskell.

• main :: IO ()
• main = do
•  k <- read <$> getLine :: IO Int
•  putStrLn $ if f (show k) then "да" else "нет"
•  where
•    f (a:b:c:d:_) = (read [a] :: Int) + (read [b] :: Int) == (read [c] :: Int) + (read [d] :: Int)

Answer 3

Для решения этой задачи вам потребуется написать программу на языке программирования. Вот пример решения на Python:

pythonCopy code
# Ввод четырехзначного числа
number = input("Введите четырехзначное число: ")

# Проверка на правильное количество цифр
if len(number) != 4:
    print("Пожалуйста, введите четырехзначное число.")
else:
    # Преобразуем каждую цифру в число
    digit1 = int(number[0])
    digit2 = int(number[1])
    digit3 = int(number[2])
    digit4 = int(number[3])

    # Проверяем условие и выводим соответствующий ответ
    if digit1 + digit2 == digit3 + digit4:
        print("Да")
    else:
        print("Нет")

Вы можете скопировать этот код в среду программирования Python и запустить его, чтобы проверить, равна ли сумма 1 и 2 цифры сумме 3 и 4 цифры в введенном четырехзначном числе.