Вычислить квадратный корень из суммы квадратов элементов одномерного массива . программа в visual basic

Ответ: 1909 var   s : string;   n : integer; function incs(a : string) : string; begin   a[length(a)]: =chr(ord(a[length(a)])+1);   if a[length(a)]> 'd' then       incs: =incs(copy(a,1,length(a)-1))+'a'   else incs: =a; end; function check(a : string) : boolean; begin   check: =false;   if (pos('a',a)> 0) then   begin       delete(a,pos('a',a),1);       if (pos('a',a)> 0) then check: =true;   end; end; begin   s: ='aaaaaa'; n: =0;   while s< > 'dddddd' do   begin   {  writeln(s);   }       if check(s) then inc(n);       s: =incs(s);   end;   writeln(n); end.

1.   8 * 40 * 64 * 16 = 327680 (бит)

    327680 / 8 = 40960 (байт)

    40960 / 1024 = 40 (кбайт)

ответ: 40 кбайт

3. я насчитал в вашей строке 29 символов, если она точь-в-точь, как вы написали. если не столько, просто поменяйте значение в формуле:

29 * 16 = 464 (бит)

464 / 8 = 58 (байт)

ответ: 54 байт

2. сначала переводим 40 кбайт в биты, действия обратные тем, которые используются в первой :

40 кбайт = 327680 (бит)

327680 / 16 = 20480 (всего символов)

20480 / 8 = 2560 (символов на одной странице)

2560 / 64 = 40 (строк на одной странице)

ответ: 40