Вот так звучит задача:В данном тексте,заданном более чем одной строкой,все последовательности "подин" заменить на "подын".
А вот решение:
var
S:string;
A:byte;
Writeln;
Readln(S);
While Pos ("Подин",S)<>0 do
begin
A:=Pos("Подин",S);
Delete (S,A,5);
Insert ("Подын",S,A);
End;
Writeln(S);
end.
Ну чего-то программа у меня не идёт,выдаёт ошибку,проверьте пожалуйста!!! Заранее огромное спассибо!
Полная версия: задачка на последовательности
Кавычки (двойные) замени на апострофы (одинарные)...
И еще:
И еще:
var
S:string;
A:byte;
begin { <--- Это забыла }
Writeln;
Readln(S);
While Pos ('Подин',S)<>0 do
begin
A:=Pos('Подин',S);
Delete (S,A,5);
Insert ('Подын',S,A);
End;
Writeln(S);
end.
begin не забыла?
В условии задачи сказано,что для текста,заданном более одной строкой... Какое условие ещё добавить надо?Не пойму...
Более чем одна строка?
Массив?
Файл?
Массив?
Файл?
Наверное файл...
Код
var
S:string;
A:byte;
f:text;
begin
Writeln;
assign(f,'твой_текст.txt');
reset(f);
while not eof(f) do
begin
Readln(f,S);
While Pos ('Подин',S)<>0 do
begin
A:=Pos('Подин',S);
Delete (S,A,5);
Insert ('Подын',S,A);
End;
Writeln(S);
end;
close(f);
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.