Рукопись автора содержит 3000 страниц. на каждой странице 60 строк, в каждой строке 60 символов. каждый символ кодируется 16 битами. кроме того, рукопись содержит 2 иллюстраций, объемом 20 мбайт каждая. каков объем рукописи в мбайтах?
Var ar:array[1..n] of integer; ar2:array[1..n] of integer; i,k:integer;
function prost(a:integer):boolean; var i:integer; b:boolean; begin b:=true; for i:=2 to a div 2 do if a mod i=0 then begin; b:=false; break; end; if a=1 then b:=false; prost:=b; end;
begin; randomize; k:=0; for i:=1 to n do begin; ar[i]:=random(101); write(ar[i]:4); end; writeln; for i:=1 to n do if prost(ar[i]) then begin; inc(k); ar2[k]:=ar[i]; write(ar2[k]:4); end; end.
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие. Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin var s1:=ReadReal('Площадь квадрата'); var s2:=ReadReal('Площадь круга'); if pi*s1<2*s2 then Writeln('Квадрат умещается в круге') else Writeln('Квадрат не умещается в круге') end.
Тестовое решение: Площадь квадрата 24.6 Площадь круга 28.4 Квадрат не умещается в круге
16 бит = 2 байта
Вес текста: 10800000 * 2 = 21600000 байт
Вес иллюстраций: 20*2 Мбайт = 40 Мбайт = 40960 кбайт = 41943040 байт
Объём рукописи: 21600000 + 41943040 = 63543040 байт = 62053,75 кбайт = 60,599365234375 Мбайт
ответ: 60,6 Мбайт