Составьте программу рисования прямоугольного треугольника, катеты которого лежат на осях координат. Медиана, проведенная из прямого угла, заканчивается в точке с координатами (2; 2) и является также и высотой.

64 - 6 битов на символ

8775*8/6/6/30 = 65

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

10000 байт = 10000 : 2^10 кб = 9,8 кб

10000 байт = 10000 : 2^20 мб = 0, 009 мб

600000 байт = 600000 : 2^10 = 586 кб

n=get()k=0s=0while n> =1 do      s=s+n % 10      k=k+1      n=(n-n%10)/10endprint(s,k)