PascalABC.NET
begin
var (x, y) := ReadReal2('Введи х и у;');
var z: real;
if x <= 0 then
z := Max(x + y, x * y / 2)
else
z := Min(Sqrt(x * y), x + y * 2);
Print(z)
end.
Шаг 1 Откройте браузер и в адресной строке укажите IP-адрес маршрутизатора 192.168.0.1 или доменное имя Нажмите кнопку Enter
Шаг 2 В окне входа в систему укажите имя пользователя и пароль. По умолчанию имя пользователя и пароль admin
Шаг 3 В левой части окна перейдите в меню Сеть (Network) -> Локальная сеть (LAN) и укажите нужное значение IP-адреса
Шаг 4 Нажмите кнопку Сохранить (Save), чтобы сохранить сделанные изменения
Объяснение:
Примечание: После того как вы изменили IP-адрес необходимо обновить настройки IP-адреса у вашего компьютера или переназначить IP-адрес вашего компьютера. При входе в систему управления маршрутизатором указывается новый IP-адрес
@np.rayzer:[DAA520] ★ ♫ ✿
444 444 444
У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿
444 444 444
У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿
444 444 444
У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿
444 444 444
У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿
444 444 444
У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿
444 444 444
У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿
444 444 444
У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿
444 444 444
У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿
444 444 444
У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿
444 444 444
У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿
444 444 444
У арабов взял)
Поделитесь своими знаниями, ответьте на вопрос:
Составить приложение на языке pascal. по заданным значениям x, y вычислить z= {max(x+y, x*y/2), x=< 0 ; min((x*y)^0.5, x+y/2), x> 0
var x,y: integer;
var min,max: Real;
var Z: real;
var step: Real;
begin
writeln('Введите x: ');
readln(x);
writeln('Введите y: ');
readln(y);
if x<=0 then
begin
max:= x+y;
if max<((x*y)/2) then
begin
max:= (x*y)/2;
writeln('Max: ', max);
end;
else
begin
for i:=1 to 0.5 do step:=step*(x*0.5);
min:= step;
if(min > (x+y)/2) then
min:= (x+y)/2;
writeln('Min: ', min);
end;
end;
end.