Составьте программу для вычисления выражений по формулам
х+у/х+1 - ху-12/34+х

х-х³/3+х⁵/5

program massiv;

var x,y: integer;

a,b: real;

uses crt;

begin

clrscr;

writeln('вводи x');

writeln('вводи y');

readln(x,y);

if (y> -1) and (y< 1)

then writeln('число подохдит, решаю первое уравнение x1=')

else writeln('выбери другое число');

b: =((x+y)/(x+1))-((x*y)-(12/34)+x);

writeln(b: 6: 1);

if (x> -1) and (x< 1)

then writeln('число подохдит, решаю второе уравнение x2=')

else writeln('выбери другое число');

a: =x-((x*x*x)/3)+((x*x*x*x*x)/5);

writeln(a: 6: 1);

end.

держи

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.