1. Не знаю, как совместить стороны и диагонали в одном решении, сделал нахождение по диагоналям.
var d1, d2, S: real;
begin
write('Введите диагонали d1 и d2');
readln(d1, d2);
if(d1>0) and (d2>0) then
begin
S:=(d1*d2)/2;
writeln('Площадь равна: ', S)
end
else
writeln('Условия неверны!')
<span>end.
Чтобы написать, достаточно знать основы паскаля. Если есть вопросы к какой-либо строке - напиши.
2. </span><span>16*sqr(sqr(x))-(sqrt(x))</span>
Основные области: Компьютерная инженерия, моделирование, разработка игр.
Динамическое отображение
Будильник петух музыка колокольчик телефон