В таблицу внесите существующие модели и явления различных процессов нужно ​

uses crt; var a,b,c,min: integer; beginwriteln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел:   ',min); readln; end.

по формуле n=2 в степени i

32=2 в степени i

32=2 в пятой степени следовательно 2 в пятой степени=2 в степени i

откуда i=5 бит

ответ: 1 буква алфавита несет 5 бит

крик

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.