uses crt;
var st,k,t:string;
    d,dem,i:integer;
begin

clrscr;

readln(st);

d:=length(st);

k=''

dem=1;

for i:=2 to d do

      begin 

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

        if st[i]<>st[i-1] then

        btegin

          str(dem,t);

          if dem>1 then k:=k+t+st[i-1];

          else k:=k+st[i-1];

          dem=1;

        end;

        if (i=d) then 

           begin

           str(dem,t);

           if dem>1 then k:=k+t+st[i];

           else k:=k+st[i];

           end;

    end;

    write(k);

readln;

end.

Program HOC24;
var st,st1,st2: string;
i,n,d,k,j: integer;
t,m: longint;
a: array[1..10000] of integer;
f: text;
const fi='SUBSUM.INP' ;
    fo = 'SUBSUM.OUT' ;
Procedure ip;
begin
        assign(f,fi);
        reset(f);
        readln(f,n,m);
        for i:=1 to n do read(f,a[i]);
        close(f);
end;
Procedure out;
begin
        assign(f,fo);
        rewrite(f);
        d:=0;
        for i:=1 to n-1 do
        Begin
        If a[i]=m then d:=d+1;
        for j:=i+1 to n do
                 begin
                         t:=0;
                         for k:=i to j do t:=t+a[k];
                         if t=m then d:=d+1;
                 end;
        End;
        if a[n]=m then d:=d+1; write(f,d);
        close(f);
end;
Begin
ip;
out;
End.

program abcdef;

uses Crt;

var

k, lowerLimit, upperLimit, i, j, reversed, temp, remainder: integer;

isPrime, isPalindrome: boolean; 

begin

clrscr;

write('Nhap so chu so k (1<=k<=9): ');

readln(k);

 lowerLimit := 1;

for i := 1 to k - 1 do

lowerLimit := lowerLimit * 10; 

upperLimit := lowerLimit * 10 - 1; 

writeln('Cac so nguyen to doi xung co ', k, ' chu so la:');

for i := lowerLimit to upperLimit do

begin

_{// Kiểm tra số nguyên tố}

isPrime := True;

if i < 2 then

isPrime := False

else

for j := 2 to trunc(sqrt(i)) do

if i mod j = 0 then

beginisPrime := False;break;end;

_{// Kiểm tra số đối xứng}

if isPrime then

begin

reversed := 0;

temp := i;

while temp <> 0 dobeginremainder := temp mod 10;

reversed := reversed * 10 + remainder;

temp := temp div 10;

end;

isPalindrome := (i = reversed);

 if isPalindrome then

writeln(i);

end;

end; 

readln;

end.

Program HOC24;

var t,n,s,d: integer;

begin

d:=1; s:=1; t:=0;

while d<100 do

begin

t:=t+2;

s:=s+t;

d:=d+1;

end;

write(s);

readln

end.

hacker cũng phải hỏi ư :((

Lâu rồi ko lên hoc24, vừa lên thấy bài hay ngay mới hay chứ

Thuật toán:

t=1 thì ko nói rồi do dễ quá

Khi t=2 thì ta có 2 biến dem0 và dem1 để giữ số các số 0 và 1

Nếu dem1<vt cần tìm thì số đó ko thể là số 1=>writeln(0)

Ngược lại thì số đó là 1=>writeln(1)

Code:

Program kth;
uses crt;
var n,i,t,x,q,dem1,dem0:integer;
    a:array[1..100000] of Byte;
    f1,f2:text;
Begin
    clrscr;
    assign(f1,'kth.inp'); reset(f1);
    assign(f2,'kth.out'); rewrite(f2);
    read(f1,n,q);
    for i:=1 to n do
        begin
            read(f1,a[i]);
            dem1:=dem1+ord(a[i]=1);
            dem0:=dem0+ord(a[i]=0);
        end;
    for i:=1 to q do
        begin
            read(f1,t,x);
            case t of
                 1:begin
                       if a[x]=1 then
                          begin
                              dec(dem1); inc(dem0);
                          end
                       else
                          begin
                              inc(dem1); dec(dem0);
                          end;
                       a[x]:=1-a[x];
                   end;
                 2:writeln(f2,1*ord(dem1>=x)+0*ord(dem1<x));
            end;
        end;
    Close(f1);
    close(f2);
End.

*Note:ord(bool) giống như khi làm trong C++,tức:

-Khi bool=true thì ra 1

-Khi bool=false thì ra 0

chương trình đơn giản??? *hết oxy*đây là tin hẻ