<em>type koords = record</em>
<em> x,y:real;</em>
<em> end;</em>
<em>var ab,dc,dh,ad,h:real;</em>
<em> a,b,c,d:koords; </em>
<em>begin</em>
<em> writeln ('A:');</em>
<em> write ('X = ');</em>
<em> readln (a.x);</em>
<em> write ('Y = ');</em>
<em> readln (a.y);</em>
<em> writeln ('B:');</em>
<em> write ('X = ');</em>
<em> readln (b.x);</em>
<em> write ('Y = ');</em>
<em> readln (b.y);</em>
<em> writeln ('C:');</em>
<em> write ('X = ');</em>
<em> readln (c.x);</em>
<em> write ('Y = ');</em>
<em> readln (c.y);</em>
<em> writeln ('D:');</em>
<em> write ('X = ');</em>
<em> readln (d.x);</em>
<em> write ('Y = ');</em>
<em> readln (d.y);</em>
<em> ab:=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));</em>
<em> dc:=sqrt(sqr(c.x-d.x)+sqr(c.y-d.y));</em>
<em> dh:=abs((dc-ab))/2;</em>
<em> ad:=sqrt(sqr(a.x-d.x)+sqr(a.y-d.y));</em>
<em> h:=sqrt(sqr(ad)-sqr(dh));</em>
<em> writeln ('H = ',h:0:4);</em>
<em> readln;</em>
<em>end.</em>
<span>Элементарно,Ватсон 1)143-23=120</span>
128 кб * 1024 * 8 = 1048576 бит
128 кб / 1024 = 0,125 мб
Def power(a, n):
an = 1;
for i in range(n):
an = a*an
return an
print("Введите a:")
a = int(input())
print("Введите n:")
n = int(input())
print(a,"^",n,"=",power(a,n),end = '')
Пример:
<span>Введите a: 2
Введите n: 5
2 ^ 5 = 32</span>