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)
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:=1tolength(s)do if s[i]=t then dem:=dem+1; write('ket qua: ',dem); readln; end.