С каких средств (программных, технических) получается растровая и векторная графическая информация? Подготовьте доклад.

begin

k: =1;

sumf: =1; {так как для i1 sum=1}

for i: =1 to n do (n-колличество членов, вводится с клавиатуры)

begin

k: =k*i;

f: =k;

sumf: =sumf+1/f;

end;

(while)

function sumw(i: integer): real;

begin

k: =1;

i: =1;

sumw: =1;

while i< =n do

begin

k: =k*i;

f: =k;

sumw: =sumw+1/f;

end;

(repeat)

function sumr(i: integer): real;

begin

k: =1;

i: =1;

sumr: =1;

repeat

k: =k*i;

f: =k;

sumr: =sumr+1/f;

i: =i+1

until  i< n;

program xxx;

    var i, n : integer;

              a, s : real;

                    b : array [1..20] of real;

begin

  writeln('введите число а=');

  readln(a);

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива b: ');

  for i: =1 to n do

        readln(b[i]);

  writeln('исходный массив b: ');

  for i: =1 to n do

        writeln(b[i]);

  s: =0;

  for i: =1 to n do

      if b[i] > a then s: =s+b[i];

  writeln('сумма элементов =', s);

  readln

end.

8=1000(2)=8(8)=8(16)

20=10100(2)=24(8)=14(16)

33=100001(2)=41(8)=21(16)

56=111000(2)=70(8)=38(16)

115=1110011(2)=163(8)=73(16)

246=11110110(2)=366(8)=f6(16)

522=1000001010(2)=1012(8)=20a(16)

1133=10001101101(2)=2155(8)=46d(16)

2166=100001110110(2)=4166(8)=876(16)

а вообще, можно использовать инженерный режим калькулятора windows для перевода в эти системы

поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe