Необходимо составить блок схему и проверить правильность кода.
условие : в автоматизированной информационной системе содержатся анкетные данные сотрудников учреждения. в массиве y(8) содержатся года рождения сотрудников, в массиве p(8) - сведения о поле, в массиве s(8) - сведения о семейном положении. элемент массива y с номером n - год рождения сотрудника n, элемент массива p с номером n - сведения о поле сотрудника n, элемент массива s с номером n - сведения о семейном положении сотрудника n. p(n) = 0, сотрудник n женского пола p(n) = 1, сотрудник n мужского пола s(n) = 0, сотрудник n холост (не замужем) s(n) = 0, сотрудник n женат (замужем) определить: процентное соотношение
количество женщин в возрасте до 55 лет
к = х 100
общее количество женщин
var y, p, s: array[1..8] of integer;
i, jt, j, t: integer;
begin
write('который сейчас год? ');
readln(t);
jt : = 0;
j : = 0;
writeln('введите сведения о сотрудниках.');
for i : = 1 to 8 do
begin
writeln('сотрудник ', i);
write('год рождения? ');
readln(y[i]);
writeln('пол (0 - женский, 1 - мужской)? ');
readln(p[i]);
writeln('семейное положение (0 - холост/не замужем, 1 - женат/замужем)? ');
readln(s[i]);
if p[i] = 0
then begin
inc(j);
if y[i] - t < 55 then inc(jt)
end
end;
if j > 0
then writeln('k = ', jt / t * 100 : 0: 2, '%')
else writeln('среди сотрудников нет женщин');
readln
end.
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
Chislo, Count, Summa, n: integer;
begin
Summa := 0;
Count := 0;
readln(Chislo);
while Chislo > 0 do
begin
n := Chislo mod 10;
if odd(n) then
begin
Summa := Summa + n;
inc(Count);
end;
Chislo := Chislo div 10;
end;
writeln('Сумма нечетных цифр числа: ', Summa);
writeln('Кол-во нечетных цифр числа: ', Count);
writeln('Среднее арифметическое нечетных цифр: ', Summa / Count);
end.
Объяснение:
Объяснение:
Допустим, у нас есть сообщение «habr», которое необходимо передать без ошибок. Для этого сначала нужно наше сообщение закодировать при Кода Хэмминга. Нам необходимо представить его в бинарном виде.На этом этапе стоит определиться с, так называемой, длиной информационного слова, то есть длиной строки из нулей и единиц, которые мы будем кодировать. Допустим, у нас длина слова будет равна 16. Таким образом, нам необходимо разделить наше исходное сообщение («habr») на блоки по 16 бит, которые мы будем потом кодировать отдельно друг от друга. Так как один символ занимает в памяти 8 бит, то в одно кодируемое слово помещается ровно два ASCII символа. Итак, мы получили две бинарные строки по 16 битбит. распараллеливается, и две части сообщения («ha» и «br») кодируются независимо друг от друга. Рассмотрим, как это делается на примере первой части.
Прежде всего, необходимо вставить контрольные биты. Они вставляются в строго определённых местах — это позиции с номерами, равными степеням двойки. В нашем случае (при длине информационного слова в 16 бит) это будут позиции 1, 2, 4, 8, 16. Соответственно, у нас получилось 5 контрольных бит (выделены красным цветом)Таким образом, длина всего сообщения увеличилась на 5 бит. До вычисления самих контрольных бит, мы присвоили им значение «0».