1. информация и информационные процессы. свойства информации. единицы измерения информации. 2. представление данных в компьютере. системы счисления. кодирование данных. представление различных типов данных. 3. аппаратные средства компьютера. развития вычислительной техники. принцип открытой архитектуры. функциональный состав персонального компьютера. 4. классификация программных средств компьютера. операционная система windows. 5. информационная безопасность. вредоносные программы. 6. алгоритмизация решения на компьютере. 7. компьютерные коммуникации. классификация компьютерных сетей. сетевые протоколы. компоненты сети. 8. компьютерная сеть интернет

uses

    crt;

const

    max=50;

var

  a: array[1..max,1..max] of integer;

  i,j,n,s,k: integer;

begin

    writeln('wvedite razmernost matrici');

    readln(n);

    writeln('wvedite matricu ',n,' x ',n);

    for i: = 1 to n do

        begin

              for j: = 1 to n do

                  read(a[i,j]);

        end;

    s: =0;

    k: =0;

    for i: = 1 to n do

        begin

              for j: = 1 to n do

                  if (j mod 2< > 0) and (i mod 2< > 0) then

                    begin

                          s: =a[i,j]+s;

                          k: =k+1

                    end;

        end;

        s: =round(s/k);

        writeln('sredne arifmet znashenie s neshetnimi indeksami ravno ', s);

readkey

end.

Больше мороки чем type int=100..999; var x: int; begin   readln(x);   case (x div 100) of     1: write('сто ');     2: write('двести ');     3: write('триста ');     4: write('четыреста ');     5: write('пятьсот ');     6: write('шестьсот ');     7: write('семьсот ');     8: write('восемьсот ');     9: write('девятьсот ');   end;   if  ((x mod 100) div 10)=1 then     case (x mod 10) of       0: write('десять  ');       1: write('одиннадцать  ');       2: write('двенадцать  ');           3: write('тринадцать  ');         4: write('четырнадцать  ');         5: write('пятнадцать  ');         6: write('шестнадцать  ');         7: write('семнадцать  ');         8: write('восемнадцать  ');             9: write('девятнадцать  ');     end   else     begin       case ((x mod 100) div 10) of         2: write('двадцать  ');           3: write('тридцать  ');             4: write('сорок  ');             5: write('пятьдесят  ');           6: write('шестьдесят  ');             7: write('семьдесят  ');             8: write('восемьдесят  ');           9: write('девяносто  ');     end;     case (x mod 10) of       1: write('один');       2: write('два');           3: write('три');             4: write('четыре');             5: write('пять');           6: write('шесть');             7: write('семь');             8: write('восемь');           9: write('девять');     end;     end; end.