Статья набранная на компьютере содержит 4 страницы, на каждой странице 40 строк, в каждой строке 64 символа. определите информационный объём статьи в одной из кодировок unicode в которой каждый символ кодируется 16 битами. распишите
Uses crt; var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real; s:real; begin writeln('Введите х координаты вершин а и b'); readln(xa,xb); writeln('Введите y координаты вершин а и b'); readln(ya,yb); xab:=xb-xa; yab:=yb-ya; ab:=sqrt(xab*xab+yab*yab); writeln('Введите х координаты вершин а и с'); readln(xa,xc); writeln('Введите y координаты вершин а и c'); readln(ya,yc); xac:=xc-xa; yac:=yc-ya; ac:=sqrt(xac*xac+yac*yac); writeln('Введите х координаты вершин b и с'); readln(xb,xc); writeln('Введите y координаты вершин b и c'); readln(yb,yc); xbc:=xc-xb; yab:=yc-yb; bc:=sqrt(xbc*xbc+ybc*ybc); p:=(ab+bc+ac)/ 2; s:=sqrt(p*(p-ab)*(p-bc)*(p-ac)); writeln(s); end.
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var c:=MatrRandom(3,5,-9,9); c.Println(4); Writeln(4*c.ColCount*'-'); Writeln('Произведение элементов: ', c.ElementsByRow.Aggregate(int64(1),(x,y)->x*y)); Writeln('*** Массив-результат ***'); c.Transform(t->t*t); for var i:=0 to c.RowCount-1 do c[i,i]:=1; c.Println(4) end.
163840:8= 20 480 (байт)
20480:1024= 20(Кило Байт)