Дан журнал наблюдения за системой. Построй и проверь гипотезу о том, как работает система.

то что подчеркнуто на минимальный возвраст группы заменить.

? "введите возвраст человека"

input a

if a> пенсионер then 1 else 2

1 ? "группа пенсионеров" : goto 10

2 if a> работник then 3 else 4

3 ? "группа работников" : goto 10

4 if a> ученик then 5 else 6

5 ? "группа учеников" : goto 10

6 ? "группа дошкольников"

10 end

надо.

10000 байт перевести в килобайты 

10000 байт перевести в мегабайты (мг)

600000 байт перевести в кигобайт (кб)

решение

1 килобайт = 2^10 = 1024 байт > 1 байт=1/2^10 килобайт

1 мегабайт = 2^20 = 1048576 байт > 1 байт = 1/2^20 мегабайт

приставка киго не существует, по этому принимаю буквенное обозначение кб

тогда

10000 байт = 9,765625 килобайт

10000 байт = 0,00953674 мегабайт

600000 байт = 585,9375 килобайт

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.

значение формулы срзнач=(d1: d4) равно 5

  можно подставить любые числа и проверить, в любом случае будет 5. а еще в диапазоне d2: d4 3 ячейки, сумма 15, добавилась еще одна ячейка d1,  в ней значение 5. 15+5=20, а среднее 20: 4=5