Написать программу определения заданной характеристики последовательности чисел с1,, для
количества чисел равных с1. (в compmodel)

x - информационный вес одного символа

n - мощность алфавита (кол-во символов)

размер содержащейся в тексте информации находим по формуле:  

k - кол-во символов в тексте 

амазонка 

- один символ несет 8 битов (1 байт)

- байт в письме амазонки

омега:  

один символ несет 7 битов

байт в письме омеги 

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.

(1) a(2) aab(3) aabaabc(4) aabaabcaabaabcd(5) aabaabcaabaabcdaabaabcaabaabcde(6) aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdef(7) aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefg(8) aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefgaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefgh(9) aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefgaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefghaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefgaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefghia(10) aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefgaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefghaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefgaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefghiaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefgaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefghaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefgaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefghija

class number2      {              string[] str_ = new string[30];               const string alphabet = "abcdefghijklmnopqrstuvwxyz";               public void solve()              {                      for (int i = 0; i < 10; i++)                      {                              if (i == 0)                               {                                       str_[i] += alphabet[i];                               }                              else                               {                                      str_[i] = str_[i - 1] + str_[i - 1] + alphabet[i];                               }                              console.writeline("({0}) {1}", i + 1, str_[i]);                               if (str_[i].length > = 256)                               {                                       console.writeline("{0}",str_[i][256 - 1]);                               }                      }              }      }

а) 

var i,n,s: integer; begin readln(n); s: =0; for i: =1 to n do begin s: =s+i; end; writeln(s); end.

б)

var a,n,i,s: integer; begin readln(n); s: =0; a: =2; for i: =1 to n do begin s: =s+a; a: =a+2 end; writeln('сумма первых ',n,' четных чисел равна ',s); a: =1; s: =0; for i: =1 to n do begin s: =s+a; a: =a+2; end; writeln('сумма первых ',n,' нечетных чисел равна ',s); end.