Вот так звучит задача:В данном тексте,заданном более чем одной строкой,все последовательности "подин" заменить на "подын".
А вот решение:
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 не забыла?
В условии задачи сказано,что для текста,заданном более одной строкой... Какое условие ещё добавить надо?Не пойму...
Более чем одна строка?
Массив?
Файл?
Наверное файл...