Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

даны числа х и у,вычислите число z равное х+у если х больше или равно н и 1-х+у в противном случае.Помогите срочно завтра контрольная!

Ответ оставил Гость

var
x,y,z:integer;
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