Question

Даны 3 числа x, y, z. Если числа даны по возрастанию, то удвоить каждое из них, иначе извлечь модуль. Написать программу в паскале и блок - схему

Answer 1

program xyz;

uses

crt;

var

x, y, z: real;

begin

writeln('Введите числа x, y, z:');

readln(x, y, z);

if (x < y) and (y < z) then

begin

x := x * 2;

y := y * 2;

z := z * 2;

end

else

begin

x := abs(x);

y := abs(y);

z := abs(z) ;

end;

writeln('x= ',x, ';') ;

writeln('y= ',y, ';') ;

writeln('z= ',z, ';') ;

end.