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

Question

Информатика

Гортензия

2 сентября, 02:14

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

+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.