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>
Второй if (в круглых скобках) синтаксически неверен
<span>1. Информация.
2. Редактор.
3. Программа.
4. Меню.
5. Окно.
6. Сеть.
7. Почта
8. Память.
9. Обеспечение.</span>
Ответ:
Я бы посоветовал(ала) свои друзьям сайт YouTube там можно посмотреть всякие развлекательные видео ролики,WhatsApp-Viber там можно общаться со своими друзьями,Play Маркет-можно установлять всякие различные игры на телефон-планшет,