Дано двузначное число. Определить: а) является ли сумма его цифр двузначным числом; б) больше ли числа а сумма его цифр.
Дано двузначное число. Определить:
а) является ли сумма его цифр двузначным числом;
б) больше ли числа а сумма его цифр.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы