Натуральное число вводится с клавиатуры найти разность между мах и мин цыфрой этого числа
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var s:=ReadlnString(Введите натуральное число:);
var s1:=s.TakeWhile(x->x in [0..9]);
Write(Принято число: ); s1.Println();
Writeln(Искомая разность: ,StrToInt(s1.Max)-StrToInt(s1.Min))
end.
Тестовое решение:
Введите натуральное число: 346235853i34535
Принято число: 346235853
Искомая разность: 6
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
