Уровень b. напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой.

// pascalabc.net 3.1, сборка 1192 от 07.03.2016 procedure b_level(n: integer); begin   n.tostring.println(newline) end; begin   b_level(readinteger('n='))    // test end. тестовое решение: n= 142352 1 4 2 3 5 2

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.

1)10см=3,937дюма

dpi - точек на дюйм

3,937*1000=3937 - точек

3937*3937=15499969 точек

каждая точка кодируется 2-мя байтами 

всего  30999938 байт

1 мегабайт = 1024*1024=1048576

на картинку  29,56 мегабайта

2) 256 1 байт

200*100=20000 пикселей

1 килобайт = 1024 байта

картинка займет 20000/1024=19,5 килобайта

 

ps а вообще, каждое нужно писать отдельно