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)