Program spartakiada;
var
a: array [1..3] of byte;
i, min: byte;
begin
min := 100;
for i := 1 to 3 do
begin
readln(a[i]);
if a[i] < min then min := a[i];
end;
writeln(min);
<span>end.</span>
Минимальная единица<span> измерения </span>информации<span> - бит (обозначение - bit). </span><span>Более популярная - байт (обозначение - byte) - в нем 8 бит (а в </span><span>високосном байте - 9 бит)</span>
по формуле N=
32=
32=
=
откуда i=5 бит
Получается что 1 буква алфавита несет 5 бит
Program chetnoe;Uses crt;Var x:integer;BeginClrscr;Writeln ('Ведите двузначное число');Readln(x);IF X mod 2=0 then Writeln ('Число четное')else Writeln ('Число нечетное');End.