Закодировать в виде ребуса - компьютер

Кот'м папа'''(нарисуешь) тень''(нарисуешь)рак'' можно так а можешь просто словами

ответ: попробуй это

const N = 10;

var

   arr: array[1..N] of byte;

   m: longint;

   i, j, k, b: byte;

begin

   readln(m);

   k := 0;

   while m > 0 do begin

       k := k + 1;

       arr[k] := m mod 10;

       m := m div 10;

   end;

 

   for i:=1 to k-1 do

       for j:=1 to k-i do  

           if arr[j] > arr[j+1] then begin

               b := arr[j];

               arr[j] := arr[j+1];

               arr[j+1] := b;

           end;        

 

   for i:=1 to k do  

       write(arr[i],' ');

   writeln;

end.

Word  =  input() count  =  0 flag  =  0 for  i  in  range(len(word)):       if  word[i]  ! =  ' '  and  flag  ==  0:         count +=  1         flag  =  1       else:           if  word[i]  ==  ' ':             flag  =  0 print(count)