Задача 520 Многострочный комментарий в...

slava191

25.01.2014

Многострочный комментарий в Pascal-программах начинается с символов (* и заканчивается символами *). Между звездочкой и круглой скобкой не должно быть никаких пробелов. Многострочные комментарии не могут быть вложенными, но внутри комментария могут находиться символы (*. Строковые литералы могут содержать символы (* и *), которые не обозначают комментарий. Заменить каждый многострочный комментарий одним пробелом.

var F,G:text;
a:string;
i:integer;

begin

assign(F,'in.txt');
assign(G,'out.txt');
reset(F);
rewrite(G);

while not EOF(F) do begin

readln(F,a);

for i:=1 to length(a) do begin

if(a[i]='(') and (a[i-1]<>'''') then begin

delete(a,i,length(a));

end;

if(a[i]=')') and (a[i+1]<>'''') then begin

delete(a,length(a)-i,i);

end;


end;

writeln(G,a);
end;

close(F);
close(G);

end.

Ответ: в решение