Question

составить алгоритм
даны числа АВС .удвоить каждое из них,если A<B<C и заменить числа их модулями в противном случае.

Answer 1

 program dhisla;
 var a,b,c:real;
 begin 
readln(a,b,c);
 if (a<b)and(b<c) then begin a:=2*a; b:=2*b; c:=2*c;  end 
else a:=abs(a); b:=abs(b); c:=abs(c);
 writeln(a ,b,c); 
end.