Uses Crt; Var i, N, kol: byte; sum_rost, sr_rost: real; team: array[1..100] of real; Begin sum_rost := 0.0; sr_rost := 0.0; kol := 0; write('Введите количество членов команды'); read(N); writeln('Введите рост каждого члена команды'); for i := 1 to N do begin readln(team[i]); sum_rost := sum_rost + team[i]; end; sr_rost := sum_rost / N; for i := 1 to N do if (team[i] > sr_rost) then kol := kol + 1; writeln('Количество членов команды, рост которых превышает средний по команде (', sr_rost:4:2, ')'); write(' равно ', kol); End.
Uses
Crt;
Var
i, N, kol: byte;
sum_rost, sr_rost: real;
team: array[1..100] of real;
Begin
sum_rost := 0.0;
sr_rost := 0.0;
kol := 0;
write('Введите количество членов команды');
read(N);
writeln('Введите рост каждого члена команды');
for i := 1 to N do
begin
readln(team[i]);
sum_rost := sum_rost + team[i];
end;
sr_rost := sum_rost / N;
for i := 1 to N do
if (team[i] > sr_rost) then
kol := kol + 1;
writeln('Количество членов команды, рост которых превышает средний по команде (', sr_rost:4:2, ')');
write(' равно ', kol);
End.
Я надеюсь надо было на паскале написать?)
2) сколько битов содержится в одном байте? 8
3) Сколько байтов в слове бит? В кодировке Windows 1 символ кодируется 1 байтом. Тогда слово из трёх букв (бит) кодируется тремя байтами.
4) Сколько битов в слове байт? Аналогично, в слове "байт" 4 символа, оно кодируется 4 байтами, что тоже самое, что и 4 * 8 = 32 бита.
5) 512 битов — это 64 байта. Это не 1/2 килобайта, так как 1/2 килобайта — 512 байт, а не бит.
6) 1 килобайт — это 1024 байт
7) 81 920 байт — это 81 920 / 1024 = 80 килобайт
81 920 бит — это 81 920 / 8 = 10 240 байт = 10 килобайт