Màn hình kết quả sẽ có giá trị:
Var S: String; i, t, kq, z: integer;
Begin
S:= ‘Hoi thi THT TP lan 24 – 2015’;
for i:=length(s) downto 1 do
begin
val(s[i],t,z);
kq:= kq+t;
end;
Write(kq);
End.
Select one:
a. 0
b. 6
c. 2
d. 14
Màn hình kết quả sẽ có giá trị:
Var S: String; i, t, kq, z: integer;
Begin
S:= ‘Hoi thi THT TP lan 24 – 2015’;
for i:=length(s) downto 1 do
begin
val(s[i],t,z);
kq:= kq+t;
end;
Write(kq);
End.
Select one:
a. 0
b. 6
c. 2
d. 14
chọn câu d
vì chương trình sẽ tính tổng các chữ số trong xâu
mà xâu s có các chữ số 2,4,2,0,1,5 nên tổng bằng 2+4+2+0+1+5=14
Chương trình thực hiện tính tổng các số có trong xâu.
kq = 2 + 4 + 2 + 1 + 5 = 14
=> Đáp án D