1,viết chương trình đếm số lần xuất hiện của các kí tự thuộc bảng chữ cái trong 50 lần gõ kí tự bằng bàn phím 2,,tính hàm lũy thừa a^n,ở đây a là số t

0 bình luận về “1,viết chương trình đếm số lần xuất hiện của các kí tự thuộc bảng chữ cái trong 50 lần gõ kí tự bằng bàn phím 2,,tính hàm lũy thừa a^n,ở đây a là số t”

1. var S:string ;
   j:integer;
   n,k:byte;
   i:char;
   begin
   k:=0;
   write(‘nhap xau S’);
   read (S);
   for i:= ‘A’ to ‘Z’ do
   begin
   n:=0;
   for j:= 1 to length(S) do
   if s[j]=i then
   n:=n+1;
   if n<> 0 then
   k:=k+1;
   end;
   write (‘so ki tu chu cai tieng anh in hoa khac nhau trong xau S=’,k);
   readln

   Bình luận