Question

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

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

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

Answer 1

Var
A:byte;
Begin
WriteLn('Введи двузначное число');
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.