Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
makhovak007
10.10.2022 15:41 •
Информатика
Напишите программу в паскале, которая выводит на экран только нечётные символы (символы под номерами 1, 3, 5, из текста пользователя.
Показать ответ
Ответ:
daramir02
01.10.2020 19:00
Var s,null:string;
i:integer;
begin
readln(s);
for i:= 1 to length(s) do
if i mod 2 = 1 then
null:=null+s[i];
writeln(null);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Daniilgrishin333333
22.08.2020 05:33
2.берілген x бойынша y-ті есептейтін программа жазыңдар ...
UltimatumRenata
16.05.2021 05:25
PYTHON Дано простое число. Составить функцию, которая будет находить следующее за ним простое число....
Trusters2007
19.03.2022 06:53
Створіть клас Кіт, його екземпляр (властивості на ваш розсуд). • Задайте метод «Спить» та «Грається» з виводом результату на екран надо...
янис9
01.04.2021 01:39
решить задачу. Язык - любой...
turovyuriy
02.10.2021 16:47
Чертежнику дан для исполнения следующий алгоритм: повтори 3 раз сместиться на (-2; -1) сместиться на (3; 2) сместиться на (2; 1)...
Цоніма
25.09.2022 05:23
Впрограмме описан одномерный целочисленный массив с индексами от 0 до n. ниже представлен фрагмент программы, обрабатывающей данный массив: s: =0; z: =a[ n ]; for i: =0 to...
kartoshechka49
25.09.2022 05:23
Найти сумму чисел100+105+110++200 напечатать выражение и значение суммы...
natchiy03
08.04.2022 21:55
Определите значение переменной s после фрагмента программы: a=6;s=0;Repear s:=s + a; a:= a - 1; Until a=2; write (s)...
lolo555
26.11.2020 00:20
В яких із наведених операторів циклу тіло циклу не виконається жодного разу? 1) Х:=5; Whіle Х 5 do X := X+1; 2) Х := 10; Whіle Х = 10 do X := X+1; 3) For A := 10 To 1 Do S...
dfhdfhf20022004
01.08.2022 20:30
Блок-схема к этому : найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
begin
readln(s);
for i:= 1 to length(s) do
if i mod 2 = 1 then
null:=null+s[i];
writeln(null);
end.