даны три действительных числа удвойте их,если они окажутся упорядоченными по возрастанию
Answers & Comments
DeSex
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; writeln(a,' ',b,' ',c) end else writeln('числа неупорядочные') end.
Answers & Comments
begin
readln(a,b,c);
if (a<b) and (b<c) then
begin
a:=2*a;
b:=2*b;
c:=2*c;
writeln(a,' ',b,' ',c)
end
else writeln('числа неупорядочные')
end.