определить является ли число двухзначным и найти сумму первой и второй цифоы
Answers & Comments
Студэнt
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.
Answers & Comments
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.