[Tin học 8] Bài tập lập trình Pascal: Xâu ký tự

[joykute2002]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào một xâu ký tự từ bàn phím. Hãy tính tổng các ký tự số có trong xâu rồi đưa kết quả tìm được ra màn hình.

 

[capuchino_buon]

program tong_ki_tu;
uses crt;
var st: string;
function tcs( st: string) : boolean;
var i, chuso, tong : integer;
begin
    tong:=0;
    for i:= 1 to length(st) do
    begin
          val( st, chuso);
          tong:= tong + chuso;
    end;
    tcs:= tong;
end;
begin
    clrscr;
    write(' nhap chuoi ki tu : ');
    readln(st);
    write(' tong chu so co trong chuoi ',st,' : ',tcs(st));
    readln;
end.