Question

Составьте программу с использованием процедуры,которая вычислит следующее значение:

если x<1 то y=x+3;

если x>1 то y=x-3;

на паскале

Answer 1

procedure solve(x: integer);

var y: integer;

begin

if x<1 then y:=x+3

else if x>1 then y:=x-3;

write('y=',y);

end;

var x: integer;

begin

writeln('x=');

readln(x);

solve(x);

end.