• Дано двузначное число. Определить:

    а) является ли сумма его цифр двузначным числом;

    б) больше ли числа а сумма его цифр.

Ответы 1

  • VarA:byte;BeginWriteLn('Введи двузначное число');Read(A);if (A mod 10) + (A div 10) > A then WriteLn((A mod 10) + (A div 10),' > ',A)else WriteLn((A mod 10) + (A div 10),' < ',A);A:=(A mod 10) + (A div 10);if (9<A)and((A<100)) then WriteLn(A,' - двузначное число')else WriteLn(A,' - НЕ двузначное число')End.
    • Автор:

      gordo1hwo
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years