|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.04.2018, 13:32 | #1 |
Новичок
Джуниор
Регистрация: 19.04.2018
Сообщений: 4
|
задание по основам программирования! - Pascal ABC - Дана строка S. Выяснить есть ли в ней цифры
Дана строка S. Выяснить есть ли в ней цифры. Если есть, то вывести эти цифры на экран, а также их количество. Если нет- то вывести сообщение об этом. Кроме того в полученной строке найти количество нечетных цифр, вывести эти цифры на экран и их количество, а если нечетных цифр нет - то вывести сообщение об этом. Выход из программы по нажатию клавиши Esc.
Код:
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ) Модератор Последний раз редактировалось Serge_Bliznykov; 19.04.2018 в 13:41. |
19.04.2018, 13:46 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
вместо
проще написать Код:
но в целом код выглядит рабочим. в чём вопрос то? |
19.04.2018, 13:56 | #3 |
Новичок
Джуниор
Регистрация: 19.04.2018
Сообщений: 4
|
не работает почему то((
|
19.04.2018, 14:17 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
19.04.2018, 14:18 | #5 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
19.04.2018, 14:20 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Александр, "0" - это не нечётное число!
WriteLn( odd(0)) -> False я почему про версию Pascal ABC спросил. дело в том, что мой Pascal ABC v 3.0.1.35 пролетает readkey не задерживаясь. Последний раз редактировалось Serge_Bliznykov; 19.04.2018 в 14:24. |
19.04.2018, 14:33 | #7 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
readkey самая малая проблема должна быть.
я код на http://rextester.com/l/pascal_online_compiler писал, а строки repeat..until на форуме дописал Попробовал авторское решение, имхо, отработало как надо
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
задание по основам программирования! - Pascal ABC - В одной строке ввести фамилию, имя, отчество. Вывести на экран фамилию и инициалы. | love26 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 19.04.2018 14:35 |
С++ Выяснить, есть ли в записи натурального числа N две одинаковые цифры. | Anya She | Помощь студентам | 4 | 21.12.2012 16:04 |
Дана строка. Преобразовать в ней все строчные буквы в прописные. | Ginger_93 | Помощь студентам | 2 | 22.03.2012 15:17 |
Дана строка текста.Определить какой из символов в ней больше . А или О? | Райзат | Фриланс | 23 | 26.07.2010 21:20 |
Дана строка S. Преобразовать строку, заменив в ней каждое многоточие одной точкой.Строки в C++ | slog | Помощь студентам | 9 | 16.12.2008 20:14 |