1)
Var
x,y,z:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if (x<>0)and(y+1/(sqrt(x*x+10)<>0) then
Begin
z:=(x+(2+y)/(x*x))/(y+1/(sqrt(x*x+10)));
WriteLn('z = ',z);
End
else
WriteLn('Ошибка: на ноль делить нельзя!');
End.
2)Var A,B,C:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
B:=A mod 10;
C:=A div 10 mod 10;
A:=A div 100;
WriteLn('А: ',A);
WriteLn('Б: ',B);
WriteLn('В: ',C);
WriteLn('Г: ',A+B+C);
WriteLn('Д: ',A*B*C);
End.
3)
Var
A,N:real;
Begin
Write('A = ');ReadLn(A);
Write('N = ');ReadLn(N);
WriteLn(power(A,1/N));
End.
4)
Var
x:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(x);
WriteLn('n = ',x mod 10,x div 10)
End.