Var
a, b, s, h :real;
begin
s:= (a+b)*h/2;
<span>end.</span>
Ну в первой все просто по очереди выполняется, сначала х=3*3; затем
итоговый ответ 729.
со второй задачкой не совсем уверен, блок с кружком это инверсия?
Программа на PascalABC
var n:integer;
begin
cls;
writeln ('Введите номер месяца');
readln (n);
if (n=1) or (n=2) or (n=12) then
writeln ('Зима')
else
if (n=3) or (n=4) or (n=5) then
writeln ('Весна')
else
if (n=6) or (n=7) or (n=8) then
writeln ('Лето')
else
writeln ('Осень');
end.
<span>https://yadi.sk/i/Xc7hsqHH3UXsgu
</span>Я не очень разбираюсь в физике и не уверен, что до конца понял задание, но реализовал все формулы, которые у вас написаны в виде графика Excel (g = 10).
Напишите мне, если нужно что-то исправить.