Сколькими можно переставить буквы слова: «тарантас», чтобы две буквы «а» не шли подряд;

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

var

x: real;

begin

readln(x);

writeln(round(x));

end.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.

v=i*k (объем=глубина цвета * кол-во точек)

i=10, т.к. 1024=2¹⁰ 

k=100*(15*18)=27000 точек

v=10*27000=270000 бит = 33 килобайт (1 килобайт = 8192 бит)