✎ Задать свой вопрос   *более 30 000 пользователей получили ответ на «Решим всё»

Задача 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, просмотры: ☺ 3186 ⌚ 25.01.2014. информатика 10-11 класс

Решения пользователей

Увы, но свой вариант решения никто не написал... Будь первым!
Хочешь предложить свое решение? Войди и сделай это!

Написать комментарий

Последние решения
S_(осн)=π*R^2
S_(cеч)=π*r^2

r:R=1:4
R=4r

S_(осн)=πR^2=π*(4r)^2=16*[b]πr^2[/b]=16*[b]S_(cеч)[/b]=16*[b]2[/b] =32
(прикреплено изображение)
✎ к задаче 41752
ctg\alpha =\frac{1}{tg\alpha }

\frac{tg\alpha }{1+tg^2\alpha }-\frac{ctg\alpha }{1+ctg^2\alpha }=\frac{tg\alpha }{1+tg^2\alpha }-\frac{\frac{1}{tg\alpha }}{1+\frac{1}{tg^2\alpha }}=\frac{tg\alpha }{1+tg^2\alpha }-\frac{tg\alpha }{1+tg^2\alpha }=0

✎ к задаче 41748
Значит боковая сторона L осевого сечения равна основанию 2R.
L=2R

S_(бок)=π*R*L

[b]π*R*2R=50π[/b]

R^2=25

R=5

О т в е т. 5
(прикреплено изображение)
✎ к задаче 41750
Так как диаметр равен 10, то радиус равен 5.
L=sqrt(h^2+r^2)=sqrt(12^2+5^2)=sqrt(144+25)=sqrt(169)=13.
Ответ: 13.
✎ к задаче 41749
(прикреплено изображение)
✎ к задаче 41738