Bài 3:
program Tin_Hoc;
uses crt;
var i,k:integer;
S3 : string [130];
Begin
clrscr;
writeln('Nhap xau S3:');readln(S3);
k:=0;
for i:= 1 to length(S3) do if S3[i] in ['0'..'9'] then inc(k);
writeln('Trong xau S3 co ',k,' ki tu la chu so');
readln;
end.
Bài 4:
program Tin_hoc;
uses crt;
var i,k:integer;
S4 : string [140];
Begin
clrscr;
writeln('Nhap xau S4:');readln(S4);
k:=0;
for i:= 1 to length(S4) do if S4[i] = 0 then inc(k);
writeln('Trong xau S4 co ',k,' ki tu la chu so 0');
readln;
end.
Nhớ cho mik là câu trả lời hay nhất nha