Поменять порядок следования цифр в заданном натуральном числе n на обратный, удалив при этом из записи получаемого числа все вхождения цифры k
150
287
Ответы на вопрос:
// 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+! введите символ для исключения 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введите исключение: 3421
Популярно: Информатика
-
еьпа26.06.2023 04:14
-
ivankarmashov2p01nx620.10.2022 09:11
-
somov10122.04.2022 10:29
-
Тогжан1111111129.11.2021 16:36
-
gilewich13.01.2020 04:06
-
Linkin25125.10.2020 05:57
-
LetovSup30.11.2021 00:31
-
Pwp79028.12.2022 10:55
-
elenchik200611.03.2020 14:37
-
asurnakova15631.01.2023 02:41