Question

Даны числа X и Y. Вычислите число z=x+y, если x<=y и 1-x+y в противном случае.

Answer 1

//Pascal
var
  X, Y, z: real;
begin
write('X = ');
readln(X);
write('Y = ');
readln(Y);
if x <= y then
  z := x + y
else
  z := 1 - x + y;
writeln('z = ', z);
end.