begin
var a := ArrRandom(ReadInteger('n ='), -15, 15);
a.Println;
a.ForEach(x -> begin if x < 0 then Print(x) end)
end.
Деловая бумага
подтверждает факт или письмо
на нём есть печать
он завершён подписью
Правильно или нет не знаю
Var a,s: real;
begin
write('длина стороны: ');
readln(a);
s:=a*a*sin(pi/3)/2;
writeln('площадь треугольника = ',s:6:4);
end.
<span>
</span>
При рисовании пятиконечной звезды Черепаха совершает два оборота, т.е. 720 градусов.Делим 720 на пять поворотов и даём поправку в 40 градусов.x = 720/5 + 40 = 144 + 40 = 184.<span>Подходит также второй вариант угла: 360-144 = 216, который с поправкой на 40 градусов даёт замечательное число 256.</span>