Question

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

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.