давно
Старший Модератор
31795
6196
23.12.2008, 13:08
общий
это ответ
Здравствуйте, Иванов Виктор Олегович!
Ваша задача в приложении.
При данных условиях необходимо удалить только букву Э в слове это.
Удачи!
Приложение:
var
s:string;
begin
{вводим строку}
write('Enter S1..Sn:');
readln(s);
{цикл замены}
while (pos(' eto',s)>0)or(pos('eto',s)=1)do
delete(s,pos(' eto',s)+1,1);
{выводим результат}
write('Result:',s);
readln;
end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.