uses crt;
var i,min,s:integer;
a:array[1..60] of integer;
begin
s:=0;
for i:=1 to 60 do a[i]:=random(35)+1;
min:=a[1];
for i:=1 to 60 do if min > a[i] then min:=a[i];
for i:=1 to 60 do if a[i] = min then inc(s);
writeln(s,' books for price = ',min,' ru.');
end.
НЕ (число > 60) И (число > 30)
(число < 60) И (число > 30)
30 < число < 60 (Так как "И")
число ∈ (30 ; 60)
Тебе требуется перевести значения из двоичной системы в восьмеричную, из восьмеричной в шестнадцатеричную.
128 символьный алфавит требует минимум 7 бит на символ. 40*50*3*7=42000 бит = 5250 байт