Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
reshetnicova74
03.08.2021 09:03 •
Информатика
Вданном целом числе n, заменить нулями все четные цифры в данном числе. вывести полученное число.(паскаль)
Показать ответ
Ответ:
nikitos7200
19.07.2020 19:59
Program changeNum;
var
num:string;
ci:byte;
begin
readln(num);
for ci:=1 to ord(num[0]) do
if (ord(num[ci])-48) mod 2=0 then num[ci]:='0';
writeln;
write(num); readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
evasyperandreev
02.11.2020 18:27
Дано слово, основное устройство ввода информации в память компьютера. выполните алгоритм: 1) замените все буквы а на о ; 2) заменить 4 и 5 буквына на н и у соответственно;...
valeria8002
06.11.2022 05:53
Алгоритмический языкниже программа, записанная на трёх языках программирования.бейсикпаскальалгdim s, t as integervar s, t: integer; начinput sbeginцел s, tinput...
nactya201613
12.08.2022 07:05
Почему при общении друг с другом происходит обмен информацией?...
Heicioe
03.03.2022 17:32
Доказать с таблиц истинности справедливость формул моргана avb=bva , ....
Арсенал11
28.11.2020 10:20
Пользователь сначала работал с файлом c: \work\9class\documents\anketa.doc. потом он переместился на 1 уровень вверх, создал каталог otchet и перенес файл в новый...
Машка4155
01.12.2020 00:59
Работа с диапазонами. относительная адресация во время каникул отправились путешествовать на разных видах транспорта. коля проплыл 50 км на пароходе, проехал 40 км...
100π100
17.08.2020 21:07
Написать программу) 1) дан массив из натуральных чисел. он заполняется при запуске программы: сначала запросить число элементов (n от 1 до 15), потом сами элементы...
bombaleilooo
12.10.2022 07:51
Общие и отличительныепризнаки окна программы и обычного окна...
find1337
12.07.2022 20:15
№3. Документ объёмом 30 Мбайт можно передать с одного компьютера на другой двумя А. Сжать архиватором, передать архив по каналу связи, распаковать. Б. Передать по...
Aly6000
19.06.2022 03:25
Получить шестнадцатеричную форму внутреннего представления числа в формате с плавающей точкой в 4-х байтовой ячейке 224.25 (c подробным решением)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
num:string;
ci:byte;
begin
readln(num);
for ci:=1 to ord(num[0]) do
if (ord(num[ci])-48) mod 2=0 then num[ci]:='0';
writeln;
write(num); readln;
end.