K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

uses crt;

var st:string;

i,d,dem:integer;

b:char;

begin

clrscr;

write('Nhap xau st:'); readln(st);

d:=length(st);

write('Nhap ki tu b:'); readln(b);

dem:=0;

for i:=1 to d do 

  if b=st[i] then inc(dem);

writeln(dem);

readln;

end.

Câu 1: 

uses crt;

var a:array[1..100]of integer;

i,n,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

Câu 2:

uses crt;

var st:string;

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln('Xau ',st,' co ',length(st),' phan tu');

readln;

end.

28 tháng 12 2021

Câu 7: B

Câu 6: B