Задан текст. Удалить из текста знаки («») - Pascal ABC

Формулировка задачи:

Как это сделать?

Код к задаче: «Задан текст. Удалить из текста знаки («») - Pascal ABC»

textual
Program forum;
 uses crt;
 var
  s :String;
  i,l :byte;
 
begin
  clrscr;
  readln(s);
  for i:=1 to Length(s) do
    if s[i]='«' then Delete(s,i,1);
    if s[i]='»' then Delete(s,i,1);
  writeln(s);
  readln;
end.

14   голосов, оценка 4.071 из 5


СОХРАНИТЬ ССЫЛКУ