Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Toktorovaskar
25.11.2021 03:49 •
Информатика
Составить программу в паскале. вводится строка. удвоить каждый ее символ.
Показать ответ
Ответ:
aeraerororrrrea
02.10.2020 23:53
Это делается очень просто:
var s,s1:string;i:integer;
begin
writeln('Введите строку:');
readln(s);
s1:='';
for i:=1 to length(s) do s1:=s1+s[i]+s[i];
s:=s1;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tamilazhakupova
27.09.2020 01:09
Для каждой составить программу, выводящую значение true, если указанное высказывание является истинным, и false - в противном случае (использовать условный оператор...
ак147
22.04.2021 12:20
Запишите в виде нумерованного спискапоследовательность(алгоритм),которую вы выполняете на уроках для достижения результата x=y p.s. нужно для 6 класса. можете найти...
Stephan229
22.04.2021 12:20
Решить на паскале я совсем не разбираюсь в ! 1)дана таблица со значениями среднемесячных температур в течение года. составить программу на паскале, в которой вычисляются...
Янеж2005
30.10.2020 15:25
Понимаю задание и его основы, но скобки ломают мозг разобраться: Логическая функция F задаётся выражением (x ≡ ( w ∨ y)) ∨ ((w → z ) ∧ (y → w)). Дан частично заполненный...
Geimer200
08.04.2021 16:18
Початкове значення змінних А=-3 В=5.Знайдіть значення змінних А і В після виконання таких операторів: а) If A B Then A:=A-B Else B:=B-Aб) If A B Then A := Bв) If A...
baxitclash
06.03.2023 04:41
ЗАПОЛНИТЕ ТАБЛИЦУ. Виды роботов. примеры. сделайте, если ответ будет правильным, отмечу как лучший...
7446457567
14.10.2021 07:10
Отметь информационные процессы (действия с информацией). 1. стирка 2. утренняя гимнастика 3. выполнение контрольной работы 4. просмотр телепередачи...
Kobrasmary
14.10.2021 07:10
Количество информации составляет 4096 бит. сколько килобайт содержится в этом объеме...
Otto111
14.10.2021 07:10
Количество информации составляет 4096 бит. сколько килобайт содердится в этом объёме...
DdMirko
23.01.2020 02:24
Дайте определение облачных технологий. плз...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var s,s1:string;i:integer;
begin
writeln('Введите строку:');
readln(s);
s1:='';
for i:=1 to length(s) do s1:=s1+s[i]+s[i];
s:=s1;
writeln(s);
end.