1. закодируйте слово computer, используя коды ita2 и ascii. 2. как прочитается фраза шайбу-шайбу! , закодированная с использованием cp1251, если кодирование просиходит по коду koi8-r. 3. в кодировке koi8-r, было составлено письмо, начинающееся фразой ", дорогой саша! ". декодирование происходило по семиразрядному коду ascii, в результате чего старший (восьмой) бит у всех символов был утерян. напишите, какой текст получился в итоге. сможет ли адресат понять содержание письма?

1)444f4d5055544552 2)4284104194114232500428410419411423 3)-

var 

    i, j, minlen, ind, count, countrow: ineteger;

    a: array[10, 10] of integer;

   

 

begin

    for i: =1 to 10 do

      for j: =1 to 10 do

          readln(a[i,j]);

    ind: =1;

    minlen: =11;

    for i: =1 to 10 do

    begin

      count: =1;

      countrow: =1;

      for j: =2 to 10 do

      begin

            if (a[i,j]=a[i,j-1]) then

                inc(count)

            else

            begin

                if (count> countrow) then 

                  countrow: =count;

                count: =1;

            end;

      end;

      if (countrow< minlen) then

      begin

          minlen: =countrow;

          ind: =i;

      end;

    end;

    for j: =1 to 10 do

      writeln(a[ind,j])

end.

var a,b,c,s: integer;

begin

read(a);

read(b);

read(c);

s: =(a+b+c) mod 3       mod вробная часть от деления

end;

 

var post,bes: real;

begin

read(post);

bes: =post-100;       (кг)=(рост(см) - 100

end;

 

 

 

var m,n,k: integer;

begin

read(m);

read(n);

read(k);

o: =m*2+n*0+k*1

end;

 

 

 

 

var x: integer;

begin

read(x);

if x mod 2 =0 then write('чот') else write('нечет');

end;

 

 

 

var x: integer;

begin

read(x);

if x mod 10=7 then write('на конце 7') else write('не 7');

end;

 

 

 

///write(x) выводит значение переменой;