Сформулируйте условие программы program inr1;

type art=record

nume:string;

nr_loc:longint;

end;

var a:array[1..20] of art;

n,i:integer;

begin

write('n=');readln(n);

for i:=1 to n do begin

write('имя',i,'=');readln(a[i].имя);

write('nr_loc=');readln(a[i].nr_loc)

end;

writeln(Все города с населением более 100000 человек':');

for i:=1 to n do if a[i].номер_место>=100000 then writeln(a[i].имя);

readln;

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.

Я надеюсь надо было на паскале написать?)

 

1) Наименьшая единица измерения информации — бит.

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 килобайт