Nhập xâu và in ra tổng các chữ số nguyên có trong xâu.(pascal) Vd 1ee45 Kq 1+4+5=10
2 câu trả lời
program tongchuso;
uses crt;
var st:string;
s:integer;
i,so:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
s:=0;
for i:=1 to length(st) do
if st[i] in ['1'..'9'] then
begin
val(st[i],so);
s:=s+so;
end;
write('Tong cac chu so trong xau la: ',s);
readln
end.
uses crt;
var s:string;
tong:integer;
i,so:byte;
BEGIN
clrscr;
write('Nhap xau:'); readln(s);
tong:=0;
for i:=1 to length(s) do
if s[i] in ['1'..'9'] then
begin
val(s[i],so);
tong:=tong+so;
end;
write('Tong:',tong);
readln
END.
Mình chạy thử r nha, chương trình cực kì chính xác và ngắn gọn
