Переведите: 128 гб в б 64 гб в мб 32 кб в б

128 гб= 131072 мб= 134217728 кбайт= 137438953472 байт

64 гб= 65536 мб

32кб= 32768 б

1. var     a: array[1..20] of integer;     b,i: integer; begin   for i: =1 to 20 do   begin       a[i]: =random(50);       if (a[i] mod 2) = 0 then b: =b+a[i];     write(a[i],' ');   end;   writeln;   writeln('сумма чётных элементов равна ',b); end. 2.   var       a: array[1..10] of integer;       i: integer;   begin       for i: =1 to 10 do       begin         a[i]: =i*3-2;         write(a[i],' ');       end; end.

// pascalabc.net 3.0, сборка 1157 от 02.02.2016 begin   var n: =readinteger('n=');   if n< 0 then writeln(n,'! не определено: n< 0')   else       if n=0 then writeln('0! =1')       else begin           var p: biginteger: =1;           for var i: =2 to n do p*=i;           writeln(n,'! =',p)           end end. тестовое решение: n= 138 138! =691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000