Площадь поверхности правильной пирамиды через апофему
<span><span>L - апофема (опущенный перпендикуляр OC из вершины С, на ребро основания АВ)
</span><span>P - периметр основания
</span><span>So - площадь основания
var
L, P, So: real;
begin
readln(L, P, So);
writeln('S = ', 0.5 * P * L + So);
<span>end.</span></span></span>
256 = 100000000 (2)
256 = 100111 (3)
256 = 10000 (4)
256 = 2011 (5)
256 = 1104 (6)
256 = 514 (7)
256 = 400 (8)
256 = 314 (9)
256 = 256 (10)
256 = 213 (11)
256 = 194 (12)
256 = 169 (13)
256 = 144 (14)
256 = 121 (15)
256 = 100 (16)
256 = f1 (17)
256 = e4 (18)
256 = d9 (19)
256 = cg (20)
256 = c4 (21)
256 = be (22)
256 = b3 (23)
256 = ag (24)
256 = a6 (25)
256 = 9m (26)
256 = 9d (27)
256 = 94 (28)
256 = 8o (29)
256 = 8g (30)
256 = 88 (31)
256 = 80 (32)
256 = 7p (33)
256 = 7i (34)
256 = 7b (35)
256 = 74 (36)
Uses crt;
var
x,y,a,b:integer;
begin
clrscr;
while true do begin
randomize;
x:=random(10);
y:=random(10);
write('Введите первое число=');read(a);
write('Введите второе число=');read(b);
writeln(x,' ',y);
if ((a=x) and (b=y)) or ((a=y) and (b=x)) then begin
writeln('Вы угадали');
end
else begin
writeln('Вы не угадали');
end;
end;
end.