18 lines
436 B
ObjectPascal
18 lines
436 B
ObjectPascal
program tree_C;
|
|
var i:longint;
|
|
s:string;
|
|
begin
|
|
assign(input,'tree_c.in');reset(input);
|
|
assign(output,'tree_c.out');rewrite(output);
|
|
readln(s);
|
|
close(input);
|
|
if length(s) mod 2=0 then
|
|
begin writeln('No');close(output);halt;end;
|
|
for i:=1 to length(s) div 2 do
|
|
if s[2*i]='#' then
|
|
if s[2*i+1]<>'#' then
|
|
begin writeln('No');close(output);halt;end;
|
|
writeln('Yes');
|
|
close(output);
|
|
end.
|