Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
пипканегра
13.05.2020 17:54 •
Информатика
Составьте программу позволяющую удвоить каждый символ заданной строки и вывести полученную строку на экран
Показать ответ
Ответ:
айка2108
12.07.2020 18:26
Var a,b:string;
i: integer;
begin
write('Введите строку: '); readln(a);
b:='';
for i:= 1 to length(a) do b:=b+a[i]+a[i];
write('Новая строка: ',b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
misterkaha
17.11.2021 06:55
Придумайте и создайте свой интерактивный кроссворд по истории компьютера не менее 5 слов...
chalenkotaya
01.05.2022 18:44
.После того как Алина подготовила титульный лист ей необходимо распечатать все страницы проекта кроме первой. Какие действия необходимо предпринять для отправки документа на...
2004by2013
01.04.2022 22:32
Определить количество чисел больших нуля среди: a1 a2 … a10...
4Миатрисс654
05.04.2020 20:26
Что я узнал о компьютере и его устройстве...
katyabicheva
26.02.2023 22:13
5.Программа получает на вход натуральное число N (3 ≤ N ≤100, N - нечетное). Выведите на экран таблицу размером NxN, средний столбец и средняя строка которой заполнены единицами,...
aurantiuma
30.04.2023 22:09
Написать программу паскаль.Дано n натуральных чисел, которые вводятся по одному. Найти: количество двузначных чисел, цифра десятков которых чётная, а цифра единиц - нечётная,...
Kr3sher
26.03.2022 09:17
4.Даны два целых числа A и B (A ≤ B). Вывести в порядке возрастания все целые числа, заканчивающиеся на 0 и расположенные между A и B (включая сами числа A и B).Язык питон...
oganyanrobert
05.04.2021 05:03
Производилась двухканальная (стерео) звукозапись с частотой дискретизации 64 кгц и 24-битным разрешением. в результате был получен файл размером 48 мбайт, сжатие данных не...
Vikysiax99
21.02.2022 05:13
90 коров тонну корма за 88 дней за сколько дней съедят тонну 99 коров?...
ddfdffdf
21.02.2022 05:13
Сравните значение выражений: г) (-1,4)^6 и -1,4^6 ; д) -64 и -2^6 ; е) -0,8¹¹ и (-0,8)¹¹ ; а) 0,3^16 и (-0,3)^16 ; б) (-1,9)²¹ и 1,9²¹ ; в) -5 6⁴ и (-5,6)⁴...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i: integer;
begin
write('Введите строку: '); readln(a);
b:='';
for i:= 1 to length(a) do b:=b+a[i]+a[i];
write('Новая строка: ',b);
end.