ЗАДАЧА 520 Многострочный комментарий в

УСЛОВИЕ:

Многострочный комментарий в 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.
ВОПРОСЫ ПО РЕШЕНИЮ?
НАШЛИ ОШИБКУ?
отправить + регистрация в один клик
опубликовать + регистрация в один клик

ОТВЕТ:

в решение

Нужна помощь?

Опубликовать

Добавил slava191 , просмотры: ☺ 2044 ⌚ 25.01.2014. информатика 10-11 класс
КОД ВСТАВКИ

РЕШЕНИЯ ПОЛЬЗОВАТЕЛЕЙ
Написать своё решение

Только зарегистрированные пользователи могут писать свои решения.
Увы, но свой вариант решения никто не написал... Будь первым!

НАПИСАТЬ КОММЕНТАРИЙ

Мы ВКонтакте
Последние решения

MargaritaPyrkina ✎ к задаче 19701

MargaritaPyrkina ✎ к задаче 19703

slava191 ✎ 4x - 5/x^2 к задаче 19700

u1452559144 ✎ y=10корень x к задаче 19589

Dima6372919237 ✎ Приблизительно -16 к задаче 19683