Вопрос школьника по предмету Информатика
Написать программу к формуле d=(|x|-|y|)/(1+|xy|)
Ответ учителя по предмету Информатика
Ладно, раз все эти нюансы не важны, то вот так:
program Project1;
var
x,y, d: real;
begin
write(‘ Enter X:’);
readln(x);
write(‘Enter Y:’);
readln(y);
d:= ((abs(x)-abs(y)))/((1+abs(x*y)));
writeln(d:0:5);
readln;
end.
Похожие вопросы от пользователей
№1. Определите, что будет напечатано в результате работы следующей программы.
Var d,n,i:integer;
Begin
n := 13;
d := n-2;
For i := 5 to 7 do
d := d + 2*i;
Writeln(d);
End.
№2. Запишите значение переменной s, полученное в результате работы программы.
Var s,k: integer;
Begin
s := 0;
for k := 13 to 16 do
s := s + 14;
writeln(s);
End.