Ответы
Ответ дал:
0
var
x, y, s: real;
begin
readln(x);
readln(y);
s := abs(x) - abs(y) / 1 + abs (x*y);
writeln(s);
end.
x, y, s: real;
begin
readln(x);
readln(y);
s := abs(x) - abs(y) / 1 + abs (x*y);
writeln(s);
end.
Ответ дал:
0
Модуль x в начале забыли.
Ответ дал:
0
//Pascal ABC.NET v3.0 сборка 111
Var
x,y:real;
begin
read(x,y);
write(abs(x)-abs(y)/1+abs(x*y));
end.
Пример ввода:
1
2
Пример вывода:
1
Var
x,y:real;
begin
read(x,y);
write(abs(x)-abs(y)/1+abs(x*y));
end.
Пример ввода:
1
2
Пример вывода:
1
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад