Функции, конечно, распознаются с трудом. Возможно, что они такие:
var x,N:real;
begin
write('x=');readln(x);
if x<-2
then N:=exp(2*x) + exp(3*x) + abs(sqrt(x))
else if x<=2 then N:=exp(2*x) - sqrt(x*x+2)
else N:=(x*x+x+1)/(ln(x)+ln(2*x));
writeln('N=',N);
<span>end.</span>
1. a mod 2 = 0, mod - берется только остаток от деления. 10 mod 5 = 0
<span>"Логика. Основы алгоритмизации"
1. Рядом со школой растут 6 деревьев: сосна, береза, липа, тополь, ель и клен. Известно, что береза ниже тополя, а липа выше клена, сосна ниже ели, липа ниже березы, сосна выше тополя. Перечислить деревья в порядке возрастания их высоты.
</span>
begin
writeln(7.41-sqrt(5*(sqrt(7))+sqr(12)));
end.