Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ЖеньОК282
01.03.2022 17:58 •
Информатика
Вданном целом числе n, заменить нулями все четные цифры в данном числе. вывести полученное число.(паскаль)
Показать ответ
Ответ:
керамбит1
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 оценок)
Популярные вопросы: Информатика
чашечкачая
24.07.2020 08:44
Вставити пропущені символи (команди) і записати код програми у зошит procedure TForm1.Button1Click(Sender: TObject) var a: array [1..___ ] of real; i: integer; min:...
вика6781
17.07.2021 01:17
Дан файл с картинкой и текстом картинка, размер которого 512•1024 пикселя окрашена в 16 цветную палитруа текст состоитищ 1024 символа информационная ёмкость одной буквы...
Сок325
04.10.2021 11:47
Решить в Python Вывести на экран рисунок из букв Ж ЖЖЖ ЖЖЖЖЖ ЖЖЖЖЖЖЖ...
askarova645
07.05.2021 09:53
Переведи число 30228 в десятичную систему счисления....
міхан
07.08.2022 03:47
На ! дано натуральное число n. выведите слово yes, если число n является точной степенью двойки, или слово no в противном случае. операцией возведения в степень пользоваться...
WTFHELP
25.09.2021 10:00
Program pv4; var k, z, y, x: integer; begin writeln( введите целые числа- x, y ); readln(x,y); if x y then z: =x*y writeln(z) else k: =x+y writeln(k) end. пишет, что...
n4rut016
23.04.2020 13:15
Слово ? 2 слово, котороеПРОБУЕМ СОЧИНИТЬРассмотри картину В. М. Васнецова Витязь на распутье .В. М. Васнецов не иллюстрировал сказку Пушкинасказкой Пушкина и живописной...
настя62821
04.12.2020 23:16
Вставить пропущенные буквы, объяснить графически правописание, сформулировать правило. Разобрать по составу выделенные слова. Раз…грать роль, от…скать щенка, пред…стория,...
Fox1114
04.04.2022 11:54
велосипед за 4 часа проехал 40 км на одном пути его скорость уменьшилась на 2 км сколько часов потратил велосипедист на обратный путь.С УСЛОВИЯМ...
Yulia221
11.05.2021 08:42
Вы согласны с тем что если бы в тяжелые минуты жизни Я хотел мельком мог если видеть эту улыбку я бы не я бы не знал что такое горе? Объясните эту мой мысль ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.