Даны три действительных числа удвойте их, если они окажутся упорядоченными по возрастанию

Question

Информатика

Медея

30 августа, 17:57

Даны три действительных числа удвойте их, если они окажутся упорядоченными по возрастанию

+1

Ответы (1)

Знаете ответ?

Венюля · Answer 1

Var a, b, c:real;

begin

readln (a, b, c) ;

if (a
begin

a:=2*a;

b:=2*b;

c:=2*c;

writeln (a,' ', b,' ', c)

end

else writeln ('числа неупорядочные')

end.