0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
348
134
BÀI LÀM
Chương trình:
program ABC;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.
Bạn ấn ctrl F9 để chạy chương trình
Hãy giúp mọi người biết câu trả lời này thế nào?
4017
5686
uses crt;
var
s: string[100];
i, dem: integer;
begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin