Question

Даны вещественный числа a b c удвоить эти числа если a Даю 49 баллов

Answer 1

Ответ:

var a,b,c:real;

begin

read(a,b,c);

if (a<b) and (b<c) then begin

a:=a*2;

b:=b*2;

c:=c*2;

end;

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

end.