составить программу нахождения модуля действительного числа вводимого с клавиатуры
Ответ
8
Var x:real;
Begin
write('x=');
readln(x);
x:=abs(x);
write('|x|=',x);
End.
Begin
write('x=');
readln(x);
x:=abs(x);
write('|x|=',x);
End.