Nhập xâu s từ bàn phím .Đếm số kí tự chữ k có trong xâu s.Đưa kết quả ra màn hình .Nếu ko có kí tự k thì đưa ra thông báo KHONG CO Giúp mk vs nhé :))Thanks
2 câu trả lời
uses crt;
var s:string; i,d:longint;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
if s[i]='k' then inc(d);
if d<>0 then writeln('Ket qua: ',d) else writeln('KHONG CO');
readln
end.
program Tin_hoc;
uses crt;
var i,k:integer;
s:string;
begin
writeln('Nhap xau S:')readln(s);
k:=0;
for i: = 1 to length(s) do if s[i] in ['0'..'9'] then inc(k);
if k = 0 then writeln('KHONG CO') else writeln('Co ',k,' ki tu chu k co trong xau');
readln;
end.
Câu hỏi trong lớp
Xem thêm
