Var
x,y:real;
begin
writeln ('Введите координаты точки (x,y)');
readln (x,y);
if (x=0) and (y=0) then writeln ('0')
else if (x=0) or (y=0) then writeln ('1')
else writeln ('2');
end.
До перелива 8 0 0
1) 3 5 0
2) 3 2 3
3) 6 2 0
4) 6 0 2
5) 1 5 2
6) 1 4 3
<span>7) 4 4 0</span>
16 = 2
8 = 64
1 = 1000
4 = 500
Пользовалась таблицей
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program pr; var x,y,z:real; function zxy(x,y:real):real; var f:real; begin f:=exp(y*ln(x)); zxy:=f; end; begin writeln('Введите х'); readln(x); writeln('Введите y'); readln(y); z:=zxy(x,y); writeln('z= ',z); end.