Срочно помогите Какую задачу решает данный алгоритма?
var x,m:real;
begin
write ('Введите число');
readln (x);
if x>0 then m:=x else m:=-x;
write (m)
end.
var x,m:real;
begin
write ('Введите число');
readln (x);
if x>0 then m:=x else m:=-x;
write (m)
end.
More Questions From This User See All