Question

напишите программу для вычесления арифметических выражений

Answer 1

Var Z, x, y, fom, fin: integer;
Begin

x := StrToInt(Edit 1. Text) ;
y := StrToInt(Edit 2. Text) ;
Z := StrToInt(Edit 3. Text) ;
fom := (1 + Z) * ((x + y/Power(x, 2) + 4) / ( 2 + 1/Power(x, 2) + 4));
fin := InToStr(fom) ;
Edit 4. Text := fin;

End;