alisabutusova
?>

Pascal abc.задайте массив из файла, в котором будут размещены однозначные цифры вашей даты рождения. например, вы родились 5 ноября 1990 года, но массив будет выглядеть следующим образом: 0, 5, 1, 1, 1, 9, 9, 0. отсортируйте данный массив, посчитайте сумму его элементов и среднее арифметическое. результат сохраните в файл.

Информатика

Ответы

olyafom1234
Создаёшь в папке с программой два текстовых файла с именами "1.txt." и "output.txt". В первый записываешь 8 чисел без пробелов и запятых ("22031991", например).

type  matrix = array [1..8] of integer;var  F, output: text;  i, n, cc, sum: integer;  c: char;  x: matrix;  ma: real;
procedure convert (var c: char; var cc: integer);begin  if c='1' then cc:=1;  if c='2' then cc:=2;  if c='3' then cc:=3;  if c='4' then cc:=4;  if c='5' then cc:=5;  if c='6' then cc:=6;  if c='7' then cc:=7;  if c='8' then cc:=8;  if c='9' then cc:=9;  if c='0' then cc:=0;end;
procedure sorting (n: integer; x: matrix);begin  for n:=1 to 7 do begin    if x[n]>x[n+1] then swap(x[n],x[n+1]);  end;end;
begin  Assign(F, '1.txt');  Reset(F);  for i:=1 to 8 do begin    read(F, c);    convert(c,cc);    x[i]:=cc;  end;  Close(F);
  sorting(n,x);  sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8];  ma:=sum/8;    Assign(output, 'output.txt');  rewrite(output);  writeln(output, sum); writeln(output, ma);  Close(output);end.
archala
1024.
высота каждого дерева может принимать два значения. (+/- 1 метр от высоты предыдущего, т.е известие, что последующие дерево выше предыдущего на 1 метр несет 1 бит информации) соответственнр основание системы счисления буде равно двум. Количество разрядов (бит) в комбинации 10 (т.к. 11 дерево всегда неизменно по высоте 100м).
Применяем формулу Хартли:
N=2^k. (т.к. вероятность того, что последующие дерево будет на метр выше такая же, что оно будет на метр ниже).
2^10 = 1024.
Всего возможно 1024 комбинаций таких садов. 
dashkevich-76611
Давай попробуем рассуждать логически.
Если бы сад состоял из двух деревьев, то было бы два варианта садов: 100+99 и 100+101. Если бы досадили третье дерево, то каждый из предыдущих садов удвоил бы число вариантов: первый 100+99+98 и 100+99+100, и так же второй 100+101+100 и 100+101+102. Подмечаем закономерность: каждое добавляемое дерево удваивает количество вариантов. А сад из одного дерева имеет лишь один вариант.

Поэтому ответ: 1 * 2 * 2 * 2 * ... (десять двоек умножаются) = 2^10 = 1024 варианта садов. 

Думаю что так, если не напутал. Но ты лучше проверь за мной. 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Pascal abc.задайте массив из файла, в котором будут размещены однозначные цифры вашей даты рождения. например, вы родились 5 ноября 1990 года, но массив будет выглядеть следующим образом: 0, 5, 1, 1, 1, 9, 9, 0. отсортируйте данный массив, посчитайте сумму его элементов и среднее арифметическое. результат сохраните в файл.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

КараханянКусков
Попов1946
Anastasiya
ecogoi
Maksim Lokhov
katarinacorvus825
s9152992722344
annanudehead1426
zhmulyov-denis8
Varezka86179
Sharmel26
Yuliya Aleksandr282
Malenyuk
Aleksei Aleksandrovna649
maltes