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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
