Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.05.2017, 14:39   #1
Алексаndra
Новичок
Джуниор
 
Регистрация: 04.05.2017
Сообщений: 2
Восклицание Вывести все четные цифры строки.

Дана строка символов, содержащая цифры. Вывести все четные цифры строки.
Алексаndra вне форума Ответить с цитированием
Старый 04.05.2017, 15:16   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
for i:=1 to length(s) do
 if Pos(s[i],'02468')>0 then Write(s[i]);
Serge_Bliznykov вне форума Ответить с цитированием
Старый 04.05.2017, 16:36   #3
Filka
Форумчанин
 
Регистрация: 29.10.2015
Сообщений: 272
По умолчанию

Код:
for I := 1 to Length(S) do
  if (S[I] in ['0'..'9']) and ((Ord(S[I]) and 1) = 0) then
    WriteLn(S[I]);

Последний раз редактировалось Filka; 04.05.2017 в 16:41.
Filka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal:Вывести все четные цифры, содержащиеся в слове наибольшей длины, и вывести число повторений каждой этой цифры Alina266 Помощь студентам 3 19.03.2017 13:50
все четные четырехзначные числа, цифры которых следуют в порядке возрастания или убывания. PHP Anya She Помощь студентам 9 10.02.2015 17:51
В массиве поставить вначале все четные, а затем все нечетные цифры в массиве (Написать программу в коде делфи) Murfik97 Помощь студентам 4 26.11.2013 21:26
С++ Найти все четные четырехзначные числа, цифры которых следуют в порядке возрастания или убывания. Anya She Помощь студентам 14 14.12.2012 16:12
Вывести сначала все его четные (нечетные) елементы, а потом- нечетные(четные). tondo Помощь студентам 4 25.04.2012 00:17