Дано четырёхзначное число....

Тема в разделе "Информатика", создана пользователем Smaller, 15 фев 2010.

  1. Smaller

    Smaller New Member

    Дано четырёхзначное число. найти равна ли сумма первых его двух чисел последним двумчислам?
     
    Smaller, 15 фев 2010
    #1
  2. дядя влад

    дядя влад New Member

    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.
     
    дядя влад, 15 фев 2010
    #2

Поделиться этой страницей

Наша группа