составить алгоритм
даны числа АВС .удвоить каждое из них,если A<B<C и заменить числа их модулями в противном случае.
даны числа АВС .удвоить каждое из них,если A<B<C и заменить числа их модулями в противном случае.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.