Question

viết chương trình nhập vào một xâu S rồi thực hiện các yêu cầu sau: a) in ra màn hình xâu S sau khi đã thay thế tất cả các kí tự 'C' thành 'LOP11A' b) hãy cho biết trong xâu S có bao nhiu kí tự c) nhập thêm xâu s1 rồi kiểm tra xem kí tự đầu của hai xâu S và S1 có trùng nhau không, xuất kết quả ra màn hình

Answer 1

program bai1;
uses crt;
var i:integer;
s,s1:string;
begin
  clrscr;
  write('nhap S:');readln(s);
  while pos('C',s)<>0 do
  begin
    insert('LOP11A',s,pos('C',s));
    delete(s,pos('C',s),1);
  end;
  writeln('xau sau khi bien doi la: ',s);
  writeln('do dai cua xau tren la: ',length(s));
  write('nhap s1:');readln(s1);
  if s1[1]=s[1] then writeln('ki tu dau cua hai xau trung nhau')
  else writeln('ki tu dau cua hai xau khong trung nhau');
  readln;
end.