пока кр идет нужно решить.. 1) Составьте блок схему для следующей задачи: Найти значение функции y=2x+x^2+5
2) Постройте граф к следующему математическому выражению: (6-(4+7))*(9-1)

Объяснение:

1.

program z1;

var x,y:real;

begin

writeln('введите х');

readln(x);

if x<>2 then

begin

y:=(2*x+3)/(x-2);

writeln('y=',y);

end

else

writeln('не существует');

end.

2.

program z1;

var s,k,i:integer;

begin

s:=0;

writeln('введите k');

readln(k);

for i:=1 to k do

if i mod 2<>0 then

s:=s+i;

writeln(s);

end.