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

Question

Информатика

Алеша

1 августа, 21:32

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

+1

Ответы (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.