дана строка. Каждую точку замените многоточием (т.е тремя точками). В чем беда? или совсем не правильно?
10-11 класс
|
var str : string;
q:integer;
k:string;
begin
writeln ('введите строку');
readln (str);k:='..';
q:=pos('.', str );
while q<>0 do
begin
insert (str,k, q );
q:=pos('.', str );
end;
writeln (str);
end.
var
str: string;
q: integer;
k: string;
begin
writeln('введите строку');
readln(str);
k := '..';
q := pos('.', str );
while q <> 0 do
begin
insert(k, str, q );
q := PosEx('.', str, q + 3 );
end;
writeln(str);
end.
Другие вопросы из категории
УЖЕ 20 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!! КТО СМОЖЕТ, ТОЛЬКО ПРАВИЛЬНО!
предложения и т.д. Т.е. к примеру дано предложение "QQQWWWeeeTTTWWW" после зашифровки должно быть так "WWWTTTeeeWWWQQQ"
Читайте также
0 то заменить на предпоследнее.
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
кратным K, заменить на
пробел.
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....
полученную строки.Напишите,пожалуйста,программу