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

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

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

Question

Информатика

Феодора

18 января, 06:38

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

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

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

+2

Ответы (1)

Знаете ответ на вопрос?

Сергуша · 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
else WriteLn (A,' - НЕ двузначное число')

End.

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

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

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

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