tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны натуральное число n и символы
Даны натуральное число n и символы s1, …, sn (строка). преобразовать данную строку, заменив в ней каждую точку многоточием (т.е. тремя точками).
polykanasch201
1 09.06.2019 07:20
3
Ответы
а6пг
01.10.2020 22:55
var
n, i: integer;
S: string;
begin
readln(n);
readln(S);
i := 1;
while (i <= n) do
begin
if (S[i] = '.') then
begin
insert('..', S, i);
i := i + 2;
n := n + 2;
end;
i := i + 1;
end;
writeln(S);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
зима19
12.01.2021 03:05
[/Массивы 2 1. Даны действительные числа x1, x2, , Xn, У1,У2. Уп, 11, r2, I n. Выяснить, есть ли на плоскости точка с целочисленными координатами, принадлежащая...
kurzinovaa
13.09.2019 20:20
Построить блок схему к программе, program cikl; var a,b,h,x1,x2,y: real; begin writeln ( введите a ); readln (a); writeln ( введите b ); readln (b); writeln ( введите...
Dan2707
13.09.2019 20:10
Надо! информатика! классный руководитель собрал из разных источников информации о саше.выберите объективную информацию: 1.мама саши написала: мой сын самый честный...
Vika15077
26.07.2019 15:11
Дан массив целых чисел от 0 до 20, заполненный случайными числами в интервале [0,100]. определить количество элементов массива кратных 3....
Тефте
25.06.2019 04:20
Решить на pascal. дано: а(100)-произвольный найти: среднее арифметическое....
LB1621
25.06.2019 04:20
Составить программу на языке pascal. дано: а1, а2, а3, - производное. найти: min...
нина655
03.08.2019 00:00
Сделать вывод что значит информация для человека...
Vika2471
21.10.2020 11:03
Какие свойства реальных объектов воспроизводят следующие модели: 1. Мягкая детская игрушка 2. Эскизы костюмов к театральному спектаклю 3. Карта местности 4. Модель...
srySyutoduofyi
21.10.2020 11:05
Переведіть 1,5 гігабайт в байт...
Tokuz
26.07.2019 02:40
Выпишите: причастные обороты, определения, выраженные прилагательными, и приложения, стоящие после определяемого слова (с обоих сторон выделяются запятыми) 1. ей...
Популярные вопросы
1)один из внешних углов равнобедренного треугольника равен 150...
2
Небольшое сообщение о том что мы можем застраховать 5 класс...
2
Один из внешних углов равнобедренного треугольника равен 15...
2
Погода стоит морозная температура воздуха часто опускается до...
2
Вшколе 24 ученика. их надо разбить на равные группы. по сколько...
2
350 грамм пищевой соды это сколько столовых ложек?...
1
Какое слово пропущено в этом предложении? 1. it is in the room....
2
Как решить мороженое стоит 25 рублей. сколько мороженого можно...
2
Музыкальная викторина 1. знак молчания в музыке 2. ансамбль...
3
Краткое сочинение на тему новогодней игрушки...
3
n, i: integer;
S: string;
begin
readln(n);
readln(S);
i := 1;
while (i <= n) do
begin
if (S[i] = '.') then
begin
insert('..', S, i);
i := i + 2;
n := n + 2;
end;
i := i + 1;
end;
writeln(S);
end.