Đề siêu dễ mong mn lm nhanh nhé Cu Tí thường xuyên tham gia thi lập trình trên mạng. Vì đạt được thành tích cao nên Tí được gửi tặng một phần mềm diệt virus. Nhà sản xuất phần mềm cung cấp cho Tí một mã số là một dãy gồm các bộ ba chữ số ngăn cách nhau bởi dấu chấm và có chiều dài không quá 255 (kể cả chữ số và dấu chấm). Để cài đặt được phần mềm, Tí phải nhập vào mật khẩu của phần mềm. Mật khẩu là một số nguyên dương M được tạo ra bằng cách tính tổng giá trị các bộ ba chữ số trong dãy mã số, các bộ ba này được đọc từ phải sang trái. - Yêu cầu: Cho biết mã số của phần mềm, hãy tìm mật khẩu của phần mềm đó. - Dữ liệu vào: Cho từ tệp văn bản có tên BL2.INPgồm một dòng chứa xâu ký tự S (độ dài xâu không quá 255 ký tự) là mã số của phần mềm. - Kết quả: Ghi ra tệp văn bản có tên BL2.OUTgồm một số nguyên là mật khẩu tìm được.
2 câu trả lời
ProgramBL2;
Constfin ='BL2.INP';
fout='BL2.OUT';
Var S:String;
i,Sum,T:Longint;
f:Text;
Begin
Assign(f,fin);
Reset(f);
Read(f,S);
Close(f);
Sum:=0;
T:=0;
Fori:=Length(S) downto1 do
If S[i] in['0'..'9'] thenT:=T*10+(ord(S[i])-48)
Else
Begin Sum:=Sum+T;
T:=0;
End;
Sum:=Sum+T;
Assign(f,fout);
ReWrite(f);
Write(f,Sum);
Close(f);
End.
uses crt;
var f:text; s:string; t,i:longint;
begin
clrscr;
assign(f,'BL2.INP');reset(f);
readln(f,s);
close(f);
assign(f,'BL2.OUT');rewrite(f);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then t:=t+(ord(s[i])-48);
writeln(f,t);
close(f);
end.
