Объяснение:
^ – не ставится у меня, но действие выполняется, у себя его ставьте!
<span>Телевизор был изобретён в XX веке. Изобретатель телевизора — профессор Петербургского технологического института Борис Розинг...</span>
Program e1;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x < 5 then y := (4 * sqr(x) + 1) / (-5)
else y := 3 * sqr(x) - 2;
writeln('y=', y)
end.
--------------------------------------------
program e2;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x > -4 then y := (5 * sqr(x) + 2) / (x + 4)
else y := 3 * sqr(x) + 7;
writeln('y=', y)
end.
У меня нет Турбо Паскаля, вставьте там в начале, как всегда пишете директиву uses Crt
Площадь поверхности правильной пирамиды через апофему
<span><span>L - апофема (опущенный перпендикуляр OC из вершины С, на ребро основания АВ)
</span><span>P - периметр основания
</span><span>So - площадь основания
var
L, P, So: real;
begin
readln(L, P, So);
writeln('S = ', 0.5 * P * L + So);
<span>end.</span></span></span>