Предмет: Информатика, автор: mikimouse9

Написать программу, чтобы она удаляла все нечетные числа в строке

Ответы

Автор ответа: marlili2006
0

Ответ:

var

 s, p : string;

 i : integer;

begin

 write('строка: ');

 readln(s);

 writeln(s);

 for i := length(s) downto 1 do  

   if s[i] in ['1', '3', '5', '7', '9'] then delete(s, i, 1);

 for i := length(s) downto 1 do

   if s[i] in ['0', '2', '4', '6', '8'] then

   begin

     p := '(' + s[i] + ')';

     delete(s, i, 1);

     insert(p, s, i)

   end;

 writeln(s);

 readln

end.

Объяснение:


marlili2006: А что именно вас смущает? Если то что все числа в скобках, то так и должно быть, но то что вы написали и есть удаление нечетных чисел
marlili2006: Ну ладно, я поняла, просто я лучше разбираюсь в PYTHON, чем в Pascal
marlili2006: Так я еще раз скажу, извиняюсь за ошибки и попрошу закрыть эту тему, мне кажется мы уже все решили
Автор ответа: BobbyFresnel
0

===== PascalABC.NET =====

begin

 var s :='26 декабря 2019 года, четверг, 15 час 43 мин, за окном +3.';

 s := s.Remove

     (

     s.MatchValues('\d+')

     .Select(p -> p.ToInteger)

     .Where(p -> p.IsOdd)

     .Select(p -> p.ToString)

     .ToArray

     );

 Println(s) // 26 декабря  года, четверг,  час  мин, за окном +.

end.

Похожие вопросы
Предмет: Математика, автор: lomchik3757
Предмет: Английский язык, автор: oktava7791