viết chương trình nhập vào xâu s và đưa ra màn hình xâu trên có bn số
2 câu trả lời
Program sss;
uses crt;
begin
clrscr;
Var s:string;
d,i:integer;
Begin
Writeln('Nhap xau S'); readln(s);
For i:=1 to length(S) do if S[i] in ['0'..'9'] then inc(d);
Writeln('xau s có: ',d,' so');
readln;
end.
program dem_so;
uses crt;
var s:string;
i,d:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then d:=d+1;
write('Xau tren co ',d,' chu so');
readln;
end.
Câu hỏi trong lớp
Xem thêm
