Какое количество информации несет в себе сообщение о том что нужный вам файл

Обновлено: 05.07.2024

64 -1 = 63 = 111111 в 2сс. Т.е 6 битов достаточно для хранения номера полки.

<1 способ (с функцией)>
Program n1;
function Dlina(x1,y1,x2,y2: integer):real;
var d: real;
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
Dlina:=d;
end;
var xa,ya,xb,yb,xc,yc: integer;
ab,bc,ca,S,p: real;
begin
writeln ('введите коорд. вершины A ');
readln (xa,ya);
writeln ('введите коорд. вершины B ');
readln (xb,yb);
writeln ('введите коорд. вершины C ');
readln (xc,yc);
ab:=Dlina(xa,ya,xb,yb);
bc:=Dlina(xb,yb,xc,yc);
ca:=Dlina(xc,yc,xa,ya);
p:=(ab+bc+ca)/2;
S:=sqrt(p*(p-ab)*(p-bc)*(p-ca));
writeln('площадь : ',S);
end.

program n2;
var x1,x2,x3,y1,y2,y3,s,a,b,c,p:real;
procedure dlina(q,w,e,r:real; var d:real);
begin
d:=sqrt(sqr(q-w)+sqr(e-r));
end;
begin
writeln ('введите коорд. вершины A ');
readln (x1,y1);
writeln ('введите коорд. вершины B ');
readln (x2,y2);
writeln ('введите коорд. вершины C ');
readln (x3,y3);
dlina(x1,x2,y1,y2,a);
dlina(x2,x3,y2,y3,b);
dlina(x3,x1,y3,y1,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь: ',s);
end.

Надеюсь на "Лучший ответ".

Сколько этажей в доме?

Если можно, то с дано, найти и решением.

Var sum : integer ; begin sum : = 0 ; for var i : = 150 to 200 do if (i mod 7) = 0 then sum : = sum + i ; write(sum) ; end. - - - - - - - - - - - - - - - - - - - - абс паскаль.

И чё дальше играли и чо.

2 вопроса 1)привет, не подскажешь где Дима живёт? 2)это такая - такая то хата? (допустим 8) она кивает - значит ты с первой попытки угадал.

Картины. Рисунки. Фотографии. Сижу и рисую картину. Просматриваю старые фотографии. Смотрю детске рисунки.

236 Кбайт = 236 * 1024 * 8 = 1933312 бит 1933312 бит / 128000бит / с = 15, 104 секунды.

Дано : N = 16 I = 1 / 16Mb найти : К решение 1)16 = 2 в степени i , значит i = 4 формула N = 2i 2) I = K * i K = I / i I = 1 / 16Mb = 1024Kb : 16 = 64 KB K = 64 KB : 4 = 26 символов Ответ 26.

Первое - 6000 Второе ~185096282 раз.

Const a = 12 ; b = 19 ; var i : integer ; z : real ; begin for i : = a to b do z : = z + exp(sin(i)) ; writeln('Z = ', z) ; end. Const a = - 10 ; b = 19 ; var i : integer ; x : real ; begin for i : = a to b do begin x : = i ; if i>a then writeln('F3..

© 2000-2022. При полном или частичном использовании материалов ссылка обязательна. 16+
Сайт защищён технологией reCAPTCHA, к которой применяются Политика конфиденциальности и Условия использования от Google.

— сервис, позволяющий систематизировать обмен жильем: два человека из разных стран могут поменяться недвижимостью на определенный срок. Проект начинался как учебный и перерос в коммерческий — вышел на реальный мировой рынок.

Заполняет с клавиатуры массив из 10 элементов целыми значениями (это действие происходит в начале каждого задания, может быть его описать один раз и дальше не повторять)

Находит значение последнего элемента этого массива, значение которого меньше 20 и выводит его на дисплей.

Если таких элементов не найдено, то выводится число 20