Trong kì thi vấn đáp học sinh phải trả lời các câu hỏi của thầy giáo. Nếu trả lời đúng, thầy giáo đánh dấu bằng kí tự "C" (Correct), nếu sai thì đánh dấu "N" (No corrcet) . Khi học sinh trả lời đúng, thầy sẽ đưa ra câu hỏi tiếp theo khó hơn câu trước, còn khi trả lời sai thầy sẽ cho câu hỏi mới dễ hơn. Sau khi thi xong, kết quả của mỗi học sinh là một xâu các ký tự "C" và "N". Điểm số của học sinh được tính như sau: Với các câu trả lời sai học sinh không được điểm, với mỗi câu trả lời đúng học sinh nhận được điểm bằng số lần trả lời đúng liên tiếp từ câu trả lời này trở về trước. Ví dụ, nếu kết quả là "CCNNCNNCCC" thì điểm số sẽ là 1 + 2 + 0 + 0 + 1 + 0 + 0 + 1 + 2 + 3 = 10.
Yêu cầu: Cho xâu kết quả độ dài không quá 1000, hãy tính điểm của học sinh. Dữ liệu: Vào từ file văn bản SCORE.INP chứa một xâu kết quả thi. Kết quả: Đưa ra file văn bản SCORE.OUT điểm số của kết quả thi.
Program hotrotinhoc;
const fi='score.inp';
fo='score.out';
var f: text;
i,d,t,n,j: integer;
a: array[1..1000] of char;
procedure ip;
begin
assign(f,fi);
reset(f);
n:=1;
while not(eof(f)) do
begin
read(f,a[n]);
inc(n);
end;
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
for i:=1 to n do
if a[i]='C' then
begin
d:=d+1;
t:=t+d;
end else if a[i]='N' then d:=0;
write(f,t);
close(f);
end;
begin
ip;
out;
end.
Program hotrotinhoc;
const fi='score.inp';
fo='score.out';
var f: text;
i,d,t,n,j: integer;
a: array[1..1000] of char;
procedure ip;
begin
assign(f,fi);
reset(f);
n:=1;
while not(eof(f)) do
begin
read(f,a[n]);
inc(n);
end;
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
for i:=1 to n do
if a[i]='C' then
begin
d:=d+1;
t:=t+d;
end else if a[i]='N' then d:=0;
write(f,t);
close(f);
end;
begin
ip;
out;
end.