Дано натуральное число n. написать программу, выводящую на экран первых n нечетных чисел 1,

var

  i, n: integer;

begin

  write('n = '); readln(n);

  for i : = 1 to n do

      write(i * 2 - 1, ' ');

  writeln;

end.

9килобайт = 9216 байт. зная информационный объём рассказа и количество страниц, найдём информационный объём одной страницы. в условии сказано, что каждый символ кодируется 8 битами, т.е. одним байтом. также мы знаем количество символов в одной строке. умножив 1 байт на количество символов в строке, найдём информационный объём одной строки. и, наконец, разделив информационный объём страницы на информационный объём строки, найдём количество строк на странице. 1) 9216 : 6 = 1536 (байт) – информационный объём одной страницы. 2) 1 × 48 = 48 (байт) – информационный объём одной строки. 3) 1536 : 48 = 32 (стр.) – количество строк на каждой странице. ответ: на каждой странице помещается 32 строки. правильный ответ – 3) 32

Const n=5; m=10; var b: array[1..n,1..m]of integer; i,j,k,buf,l: integer; begin     for i: =1 to n do           begin             writeln;                 for j: =1 to m do                   begin                     b[i,j]: =random(50);                     write(b[i,j]: 4);                   end;             end; writeln; for j: =1 to m do     begin       k: =0;         for i: =1 to n-1 do             if b[i,j]< b[i+1,j]then                 k: =k+1;             if k=n-1 then                 buf: =buf+1;     end; k: =0; for l: =2 to m do     if l mod 2=0 then       for i: =1 to n-1 do         for j: =i+1 to n do             if b[i,l]> b[j,l]then                 begin                     k: =b[i,l];                     b[i,l]: =b[j,l];                     b[j,l]: =k;                 end; writeln('увеличилось   ',m div 2-buf); for i: =1 to n do     begin       writeln;           for j: =1 to m do               write(b[i,j]: 4);     end; end.