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ố thực n là số tự nhiên được nhập từ bàn phím 3,Viết chương trình nhập 1 dãy số tối đa 100 số,sau đó sắp xếp lại theo thứ tự tăng dần

1 câu trả lời

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

Câu hỏi trong lớp Xem thêm