Ответ:
1)
Begin
Read(x1,y1,x2,y2);
Write(sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)));
End.
2)
Begin
Read(a,b,c);
P:=(a+b+c)/2;
Write(sqrt(p*(p-a)*(p-b)*(p-c)));
End.
<span>(((1v0)v1)v1)
</span>((1v1)v1)
(1v1)
1
1.1. Ответ: 2) 4 раза
1.2. Ответ: 100 Бит
1.3. Ответ: 800 Бит
1.4. Размер переводим в дюймы 10/2,54=3,937 Дюйма
Высчитываем размер края в пикселях 1200*3,937=4724 (пикселей) до круглого значения в меньшую сторону.
K = 4724*4724 = 22316176 пикселей всего на изображении
I = 24 бита на пиксель
![V=K*I=22316176*24=535588224](https://tex.z-dn.net/?f=V%3DK%2AI%3D22316176%2A24%3D535588224)
(Бит)
535588224/8=66 948 528 (Байт) = 63,85 (МБайт)
11011111 = 223
11011001 = 217
11000011 = 195
11000000 = 192
3
var n: integer;
s: real;
begin
s:=0;
n:=1;
while n <= 3*3*3*3*3*3*3*3 do begin
s:= s+1/n;
n:= n*3;
end;
writeln(s);
end.
4
var a: integer;
s: real;
begin
s:=1;
readln(a);
for var i:=1 to a do begin
s:= s-1/(i+1);
s:= s+1/(i+2);
end;
writeln(s);
end.