Какие последовательности букв будут в кодировках кои8 и iso соответствовать слову "эвм", записанному в кодировке ср1251?

cp1251-> эвм

кои8-r-> щбл

iso 8559-5-> нть

 

 

 

 

1)          а: =b(13)+a(-2)*3=13+(-2*3)=13-6=7

2)          a) readln(а); readln(х);

б) writeln(z)

в)      var b,c : real; (чаще всего используется при нахождении вещественных чисел)

              var a: integer; (чаще всего используется при нахождении вещественных чисел)

г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d: =d+20; д) z : = x + y; ( : = это знак присвоения) 3)  program pr1; var w,s,b: integer; begin readln (s, b); w: = ((12*s) + (26*b)); writeln (w); end. 4) запишите на языке паскаль следующие условия: а) f > 105 ; б)   a< 184   ; в)   w< > 181;   г)   z> 0; д) z< =d; е)  (y*x)> =(d+w); ж)   (w-d)< 88; з) f> =1; 5. запишите на языке паскаль команду ветвления для решения следующей : а)  if   a< > 21 then a: =a+28 else a: =a-51; б)  if   a mod   2=0 then a: =a+5 else a: =a-12; 6. запишите на языке паскаль команду цикла для решения следующей : а)   program pr1; var j,p: integer; begin j: =1; p: =0; while j> =66 do begin p: = p*j; j: =j+1: writeln (‘произведение чисел = ‘, p); end. б)  

program pr1;

var n: integer;

begin

for n: =1 to 7 do

writeln('trud');

end.

1. помещаем нижеследующий текст в файл unisum.pas, который должен находиться в директории pabcwork.net // pascalabc.net 3.0, сборка 1128 unit unisum; interface function unisummatrix(a: array[,] of integer): integer; function unisummatrix(a: array[,] of real): real; overload; implementation function unisummatrix(a: array[,] of integer): integer; begin   result: =0;   for var i: =0 to length(a,0)-1 do       for var j: =0 to length(a,1)-1 do           if a[i,j]> 0 then result+=a[i,j] end; function unisummatrix(a: array[,] of real): real; overload; begin   result: =0;   for var i: =0 to length(a,0)-1 do       for var j: =0 to length(a,1)-1 do           if a[i,j]> 0 then result+=a[i,j] end; end. 2. создаем новый файл и помещаем в него тестовую программу // pascalabc.net 3.0, сборка 1128 uses   unisum; begin   var m: =readinteger('число строк в матрице: ');   var n: =readinteger('число столбцов в матрице: ');   var r: =matrixrandom(m,n,-10,20);   writeln('сгенерированная матрица');   for var i: =0 to m-1 do begin       for var j: =0 to n-1 do write(r[i,j]: 4);       writeln       end;   writeln('сумма положительных элементов: ',unisummatrix(r));   m: =readinteger('число строк в матрице: ');   n: =readinteger('число столбцов в матрице: ');   var s: =matrixrandomreal(m,n,-15,32);   writeln('сгенерированная матрица');   for var i: =0 to m-1 do begin       for var j: =0 to n-1 do write(s[i,j]: 7: 2);       writeln       end;   writeln('сумма положительных элементов: ',unisummatrix(s): 0: 2) end. тестовое решение: число строк в матрице: 4 число столбцов в матрице: 3 сгенерированная матрица   -10  15  17   -8  -8    7     2  -9    0   -1    5  17 сумма положительных элементов: 63 число строк в матрице: 5 число столбцов в матрице: 6 сгенерированная матрица     0.74  -7.30  15.97    5.01    1.55  12.02   -3.98  -9.21    3.35  -7.95 -14.10  31.21   13.75  -5.82  -5.34  13.33  14.61  15.76   -5.30  14.65    2.60  20.26  27.30  10.81   11.60  27.43    5.61 -10.29 -10.48  26.61 сумма положительных элементов: 274.18 как видно, программа действительно универсальная: она позволяет работать с матрицами разных размеров и даже разного типа данных.