Процедура обработки строки состоит из трех последовательных операций: заменить в строке все символы 'a' на подстроку 'bc' заменить в строке все символы 'b' на подстроку 'aс' заменить в строке все подстроки 'сс' на подстроку 'ad' процедура может выполняться многократно. в этом случае при очередном вызове на вход процедуре подается строка, получившаяся в результате предыдущего выполнения процедуры. пусть исходно была строка 'aa', и процедуру выполнили 11 раз. определите количество символов d в получившейся строке. в ответе укажите целое число.

100010,011101=42,35   (вос. сис.)

10010,011101=22,1d   (шест. с.)

  111 111 111 000 001=77701(в.с)

  0111 1111 1100 0001(добавляем 0)=7fc1 (ш.с.)

0,000110101=0,065(в.с) (доб. 00)

0,0110101=0,35(ш.с.) 

0,11 100 110 101=0,3465(в.с.)

0,111 0011 0101=0,735(ш.с.) 

закодированный текст: byck is my dog.

1)

var 

a,b,c: real;

begin

readln(a,b);

c: =180-a-b;

if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')

else

if  (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else  writeln('остроугольный');

end.

2)

var

v: real;

begin

readln(v);

if v< 7.8 then writeln ('ракета упадет на землю');

if v=7.8 then  writeln ('ракета станет спутником земли');

if (v> 7.8) and (v< =16.4) then  writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then  writeln ('ракета покинет пределы солнечной системы');  

end.

мало данных для главное - размер пробоины и размер листа