Дано двузначное число. Определить: а) является ли сумма его цифр двузначным числом; б)...

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 (9else WriteLn(A,' - НЕ двузначное число')
End.