1. Информатика
  2. Лёгкая по дан текст. удвоить

Лёгкая по дан текст. удвоить все буквы этого текста, стоящие в чётных позициях.

mbelilovskaa mbelilovskaa    3   16.08.2019 15:00    0

Ответы
Zipchik Zipchik  20.08.2020 09:49
Var
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if i mod 2 =0 then write(s[i],s[i])
else write(s[i]);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
OgoKatya OgoKatya  04.07.2019 14:30
Какие объекты живой природы можно наблюдать во дворе? составь список пяти таких объектов .элементы списка расположи по алфавите?...
nastasyasidork nastasyasidork  10.08.2019 13:20
Текст,содержащий 40 страеиц (на каждой странице 32 строки 60 символов в каждой ) закодирован в 8 битной кодироке. определите информационный обем текста в кбайтах...
Петр1234561 Петр1234561  10.08.2019 13:20
Сумма ограничение времени 2 секунды ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt необходимо сложить два числа a и...
ослвлвллыб ослвлвллыб  10.06.2019 14:20
На языке паскаль! определить принадлежит ли точка a(x) лежащая на координатной прямой отрезку [-3,3]....
sangria sangria  10.06.2019 14:20
Сколько бит содержиться в 3 мегабитах?...
16nastia16 16nastia16  10.06.2019 14:20
Чему будет равно значение переменной s после выполнения следующей последовательности операторов? s: =95; for i: =9 to 16 do s: =s+2*i; в ответ введите число....
vlados546712 vlados546712  10.06.2019 14:20
Как сделать в вордовском документе объемную фигуру...
Burik130120 Burik130120  10.06.2019 14:20
Определите тип каждого из следующих носителей информации а)звуковые волны б)фотобумага в)волны,излучаемые радиостанцией г)магнитофонная лента д)рентгеновский снимок заранее...
margaritavladim margaritavladim  10.06.2019 14:30
Перевести в римскую систему счисления число 1999...
mamrykovaksun mamrykovaksun  10.06.2019 14:30
Составить программу, которая находит боковую сторону(b) в равнобедренном треугольнике,если известна площадь(s) и основание(a)...

Популярные вопросы