сервис вопросов и ответовПреобразовать исходную строку, заменив в ней каждую точку многоточием (т.е. тремя точками).
10-11 класс|
|
н2а0н1а3
11 нояб. 2016 г., 8:37:25 (7 лет назад)
Irokeza
11 нояб. 2016 г., 10:55:35 (7 лет назад)
var s1,s2:string;n,m:byte;
begin
readln(s1);
for n:=1 to length(s1)
do
begin
s2:=s2+copy(s1,n,1);
if copy(s1,n,1)='.'
then
begin
s2:=s2+'..';
end;
end;
writeln(s2);
end.
Вот так
Valerad3
11 нояб. 2016 г., 13:47:48 (7 лет назад)
var s1,s2:string;
n,m:byte;
begin
readln(s1);
for n:=1 to length(s1) do
begin
s2:=s2+s1[n];
if s1[n]='.' then
begin
s2:=s2+'..';
m:=m+2;
end;
end;
writeln(s2);
end.
MalePix
11 нояб. 2016 г., 15:10:08 (7 лет назад)
в чем ошибка. Вроде все правильно, а компилятор ошибку находит
Kozirusha
11 нояб. 2016 г., 16:38:05 (7 лет назад)
все верно, только зачем эта строчка не понятно m:=m+2;
Ответить
Другие вопросы из категории
паскаль.
есть n количество студентов и t время. блоха сидит на первом студенте. и за каждую секунду прыгает на следующего. программа должна вывести на каком студенте блоха окажется по окончании времени
Читайте также
дана строка. Каждую точку замените многоточием (т.е тремя точками). В чем беда? или совсем не правильно?
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.
дана символьная строка заменить в ней последовательности символов расположенных между открывающими и закрывающими скобками на точки.предполагается,что
внутри пары скобок вложенных нет
Дана строка, содержащая путь к файлу или каталогу, записанный по соглашениям, принятым в ОС MS DOS. Преобразовать данную строку таким образом, чтобы она
содержала путь в формате ОС Unix, то есть заменить каждый символ "\" на символ "/".Путь DOS:
Вы находитесь на странице вопроса "Преобразовать исходную строку, заменив в ней каждую точку многоточием (т.е. тремя точками).", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.