cho một chuỗi được nhập từ bàn phím, hãy in ra số lượng các chuỗi khác nhau khi hoán đổi vị trí của 2 kí tự trong chuỗi ĐÚNG 1 LẦN. VD: xâu được nhập là ABC,

Câu hỏi :

cho một chuỗi được nhập từ bàn phím, hãy in ra số lượng các chuỗi khác nhau khi hoán đổi vị trí của 2 kí tự trong chuỗi ĐÚNG 1 LẦN. VD: xâu được nhập là ABC, khi bạn chọn đổi kí tự ở vị trí 1 và 3 thì sâu trên sẽ trở thành CBA
-thời gian 1s, kí tự xâu nhập vào không quá 10^6 kí tự

Lời giải 1 :

Var
s:ansistring;
i:Longint;
d:Array[0..128] of Longint;
kq:Int64;
BEGIN
Readln(s);
kq:=0;
For i:=1 to 128 do d[i]:=0;
d[ord(s[1])]:=1;
For i:=2 to length(s) do
Begin
kq:=kq+i-1-d[ord(s[i])];
Inc(d[ord(s[i])]);
End;
For i:=1 to 128 do if d[i]>=2 then
Begin
Inc(kq);
Break;
End;
Writeln(kq);
END.

Tin Học

Lớp 9

Bạn có biết?

Tin học là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng. Tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin. Hãy tận dụng sức mạnh của tin học để giải quyết các vấn đề và sáng tạo ra những giải pháp mới!

Nguồn :

Wikipedia - Bách khoa toàn thư

Tâm sự lớp 9

Lớp 9 - Là năm cuối ở cấp trung học cơ sở, chúng ta sắp phải bước vào một kỳ thi căng thẳng và sắp chia tay bạn bè, thầy cô. Áp lực từ kỳ vọng của phụ huynh và tương lai lên cấp 3 thật là lớn, nhưng hãy tin vào bản thân và giữ vững sự tự tin!

Nguồn :

sưu tập

cho một chuỗi được nhập từ bàn phím, hãy in ra số lượng các chuỗi khác nhau khi hoán đổi vị trí của 2 kí tự trong chuỗi ĐÚNG 1 LẦN. VD: xâu được nhập là ABC,

Lời giải 1 :

Bạn có biết?

Nguồn :

Tâm sự lớp 9

Nguồn :

Có thể bạn quan tâm