Ответы на вопрос:
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.
Популярно: Информатика
-
Закодируйте слово БАНТ, если известно, что в таблице ASCII А=128,...
opasno1023.04.2020 12:35 -
Program esep8; uses crt; var x,y,z,s,p: double; begin clrscr; writeln(...
00Alcatraz0020.03.2023 02:36 -
Program esep8; uses crt; var x,y,z,s,p: double; begin clrscr; writeln(...
фирузаалиева28.08.2020 13:51 -
Ввести число не равное нулю. возвести во вторую степень отрицательное...
Maximus2000007.02.2020 21:39 -
Подтверждение подлинности объектов и субъектов информационной системы....
silverking30.09.2022 21:24 -
надо сделать до 11_40 5 надо сделать...
ритттт22.02.2023 20:53 -
Запишите число 347 в развёрнутом и свёрнутом виде...
Ариса2703.08.2022 06:04 -
Решите на кону моя судьба!...
stylestudionmovp55705.09.2020 08:52 -
Сделать нужно в Python створіть масив елементами якого є 10 випадкових...
teeqo77705.10.2022 12:53 -
Решите подалуйста то что написано ораньжевым...
yaanny030420.04.2022 06:09