Не забудьте задать исходные данные (как переменные) перед запуском программы.
program mediana;
var
x1,y1,z1,x2,y2,z2,x3,y3,z3: real; (* исходные данные *)
x_aa1,y_aa1,z_aa1,length_aa1: real; (* координаты AA1 *)
begin
(* тут нужно будет задать исходные данные *)
x_aa1 := (x2+x3)/2;
y_aa1 := (y2+y3)/2;
z_aa1 := (z2+z3)/2;
length_aa1 := sqrt(sqr(x1-x_aa1)+sqr(y1-y_aa1)+sqr(z1-z_aa1));
writeln('Длина AA1: ', length_aa1);
end.
Program n1;
var a: real;
begin
readln(a);
writeln(a+10);
end.
Program gt;
var a:array[1..1000]of integer;
i,s,n:integer;
begin
read(n);
s:=0;
for i:=1 to n do
begin
read(a[i]);
if(a[i] mod 5=0)then s:=s+a[i];
end;
writeln(s);
end.
100111 разбиваем на тетрады (по 4 цифры), получаем
0010.0111
считаем по схеме
1 1 1 1
8 4 2 1
0010(2)=2(16)
0111(2)=7(16)
100111(2)=27(16)
Кодировка какая?
Если кодировка Unicode, каждый символ кодируется 16 битами, если переводить в байты тогда 16 бит это 2 байта
Строка: 60 символов по 16 бит = 960 бит
60 символов по 2 байта = 120 байт
Страница: 40 строк по 960 бит = 38400 бит
40 строк по 120 байт 4800 байт
Учебник: 288 страниц по 38400 бит = 11059200 бит
288 страниц по 4800 байт = 1382400 байт
Ответ: 11059200 бит, 1382400 байт
___________________________________________
Если кодировка КОТ-8 или Windows-1251, каждый символ кодируется 8 битами, 8 байт это 1 байт
Строка: 60 символов по 8 бит = 480 бит
60 символов по 1 байту = 60 байт
Страница: 40 строк по 480 бит = 19200 бит
40 строк по 60 байт = 2400 байт
Учебник: 288 страниц по 19200 бит = 5529600 бит
288 страниц по 2400 байт = 691200 байт
Ответ: 5529600 бит, 691200 байт
