Определить является ли число двухзначным и найти сумму первой и второй цифоы

Question

Информатика

Игорич

19 марта, 11:45

Определить является ли число двухзначным и найти сумму первой и второй цифоы

+5

Ответы (1)

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

Артемон · Answer 1

Var

n : integer;

begin

write ('Введите число: ') ;

readln (n) ;

n:=abs (n) ;

if n in [10 ... 99] then write ((n mod 10) + (n div 10)) else

write ('Число не двузначное!') ;

end.