Поменять порядок следования цифр в заданном натуральном числе N на обратный, удалив при этом из записи получаемого числа все вхождения цифры k
Поменять порядок следования цифр в заданном натуральном числе N на обратный, удалив при этом из записи получаемого числа все вхождения цифры k
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Введите натуральное число');
var k:=ReadChar('Введите символ для исключения');
s.Where(x->x in ['0'..'9']).Reverse.Where(x->x<>k).PrintLn('')
end.
Тестовые решения
- сначала корректное число:
Введите натуральное число 23610645311065462546320
Введите символ для исключения 6
023452450113540132
- а теперь число, замусоренное разными символами:
Введите натуральное число 1234 разорвем2356-783+342\1421453!!!
Введите символ для исключения 3
5412412487652421
Гость//Вариант без местного оккультизма
//Pascal ABC.NET v3.0 сборка 1111
var
s:string;
c:char;
i:integer;
begin
writeln('Введите число:');
readln(s);
writeln('Введите исключение:');
readln(c);
for i:=length(s) downto 1 do
if s[i]<>c then write(s[i]);
end.
Пример выполнения:
Введите число:
1234
Введите исключение:
3
421
Не нашли ответ?
Похожие вопросы