Viết chương trình nhập vào từ bàn phím 1 xâu s có độ dài không quá 250 kí tự. Hãy cho biết trong xâu s có bao nhiêu '1'?
2 câu trả lời
var s: string[250];
i, d: byte;
Begin
Write('nhap xau: '); readln(s);
D:=0;
For i:=1 to length(s) do
If s[i]='1' then d:=d+1;
Write('co ', d, ' ki tu "1"');
Readln
End.
uses crt;
var s: string;
d,i: byte;
begin
clrscr;
write ('nhap xau: '); readln (s);
for i:=1 to length(s) do if s[i]='1' then d:=d+1;
write ('trong xau co ',d,' ki tu "1" ');
readln;
end.
