Nhập xâu S không quá 150 kí tự. Hãy cho biết bao nhiêu kí tự '1' trong xâu S làm cho mk vs ạ mk cần gấp ạ passcal ạ
2 câu trả lời
program bai_giai;
uses crt;
var s:string[150];
i,d:byte;
begin
clrscr;
write('Nhap xau S: '); 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 trong xau ',s);
readln;
end.
program phuongt;
uses crt;
var s: string[150];
i, d: integer;
begin
clrscr;
write('Nhap xau s = '); readln(s);
for i:=1 to length(s) do if s[i]='1' then d:=d+1;
write('Co ', d, ' ki tu "1" trong xau S');
readln
end.
