<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
Нужно все перемножить и еще умножить на кодировку. И сразу переведем в Кбайт поделив на 8*1024*1024
I=k*i
I=32*32*35*8/8*1024*1024=35 Кб
Ответ 4.
Если тебе интересно, как можно посчитать без калькулятора, то оставь комментарий под этим ответом, я тебе объясню
----------------------------------------------------------------------------------
Необходимо представить все данные в виде двойки в N степени: страницы, строки, символы, кодировка.
32 - это 2^5 степени, вы должны были учить на первых уроках информатики значение двойки от 1 степени до 10.
35 - в степени двойки не представляется, оставим так. Ее будем умножать с остальными цифрами.
8 бит - 2^3
Формула нахождения информационного объема I=k*i
k - кол-во символов, i - кодировка
Подставляем I=2^5+2^5*35+2^3
При умножении степеней с одинаковым основанием основание остается прежним, показатели складываются
I=2 в 13 степени *35 Бит
Переведем в байт. В 1 байте - 8 бит, это 2^3 степени, следовательно отнимем 3 от нашей степени
I=2 в 10 степени *35
Переведем в Кбайт.
В 1 кбайте - 1024 байт. А 2^10 это 1024. Отнимаем
I=35
Осталось 35, так как степени ушли, а любое число в нулевой степени равно 1
Вот так получилось 35 Кбайт.
Uses Crt;
const
n=40;
var
i,s:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i*i*i;
ClrScr;
Writeln(s);
ReadKey
end.
<u>Результат</u>
672400
11101(2)=29(10)
10(2)=2(10)
29+2=31(10) = 11111(2)
29-2=27 = 11011(2)
29*2=58 = 111010(2)
11001(2) + 10(2) = 11111(2) =31(10)
10101(2) - 10(2) = 11011(2) = 27(10)
11101(2) * 10(2) = 111010(2) = 58(10)
Формулы: C=2πR, S=πR²
program zadacha;
uses crt;
var r: integer;
c, s: real;
begin
clrscr;
write ('vvedite radius: ');
readln (r);
c:=2*pi*r;
s:=pi*sqr(r);
writeln ('dlina okruzhnosti=', c:0:5, ', ploschad=', s:0:5);
readkey;
end.