Hãy viết chương trình: Nhập vào 1 xâu kí tự và kiểm tra số lần 1 kí tự t bất kì xuất hiện trong xâu vừa nhập Nhập xâu: Covid Kí tự kiểm tra: o Kết quả: 1 (Tức là có 1 kí tự o)
2 câu trả lời
program giup;
uses crt;
var s:String;
t:char;
i,dem:integer;
begin
dem:=0;
write('nhap xau: '); readln(s);
write('ki tu kiem tra: '); readln(t);
for i:=1 to length(s) do
if s[i]=t then dem:=dem+1;
write('ket qua: ',dem);
readln;
end.
uses crt;
var str:string;
t:char;
i,d:byte;
begin
clrscr;
readln(str);
readln(t);
for i:=1 to length(str) do
if str[i]=t then inc(d);
write(d);
readln;
end.
Câu hỏi trong lớp
Xem thêm
