Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.