Đếm Tam giác sao

[haido92]

Xin lỗi, mình post nhầm một chút [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG] Viết thẳng code lên diễn đàn nên hơi khó theo dõi [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

while not eof(fi) do
begin
     readln(fi, s); // s là một xâu kí tự  
        for t := 2 to length(s)-1 do
             if (s[t] = '*') and (s[t-1] = ' ') and (s[t+1] = ' ') then
                 inc(sum); // biến đếm số tam giác sao đều
end;