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