Уровень 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

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

 

512 бит = 512/8=  64 байт

1073741824 байт =1073741824/1024=1048576 кбайт / 1024= 1024 мбайт

1024 кбайт = 1024*1024=1048576 байт

4

дискета 3,5 = 720 кбайт

сd= 650 мбайт

dvd= 1,4 гбайт- 17,08гбайт

жесткий диск = до 5 тбайт (терабайт)

5

30 кбайт= 30*1024 = 30720 байт

125 кбайт  =  125* 1024 =128000 байт

1024 кбайт = 1024* 1024 = 1048576 байт

71 кбайт = 71 * 1024 = 72704 байт

13 гбайт = 13*1024=13312мбайт=13312*1024=13631488кбай= 13631488 * 1024 = 13958643712байт

9216 байт = 9216/1024 = 9 кбайт

32 гбайт = 32*1024*1024=33554432 кбайт

769мбайт = 769*1024 = 787456 кбайт

512 байт = 512 /1024 = 0,5 кбайт

70254592 байт = 70254592/1024/1024=67 мбайт

42 гбайт = 42*1024= 43008 мбайт

20482 кбайт = 20482/1024 = 20мбайт

2 гбайт =2*1024=2048 мбайт