Пирамида - основание правильный многоугольник, а боковые стороны треугольники
Ответ:41 раз.
как сделал:
////////////////////
var k, i, n: Integer;
begin
n:=1;
k:=8;
while k>0 do
begin
i:=10;
while i<15 do
begin
writeln('Мне нравится паскаль');
n:=n+1 ;
i:=i+1;
end;
k:=k-1
end;
writeln(n);
end.
Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
Uses Drawman;
procedure Berry;
begin
field(14, 13);
topoint(2, 1);
pendown;
topoint(1, 2);
topoint(1, 3);
topoint(2, 4);
topoint(3, 4);
topoint(4, 3);
topoint(4, 2);
topoint(3, 1);
topoint(2, 1);
penup;
topoint(6, 1);
pendown;
topoint(5, 2);
topoint(5, 3);
topoint(6, 4);
topoint(7, 4);
topoint(8, 3);
topoint(8, 2);
topoint(7, 1);
topoint(6, 1);
penup;
end;
procedure Leaf;
begin
topoint(3,4);
pendown;
topoint(6,10);
topoint(4,12);
topoint(2,12);
topoint(4,10);
topoint(8,10);
topoint(10,8);
topoint(8,8);
topoint(6,10);
topoint(6,4);
end;
begin
Berry;
Leaf;
end.