• помогите составить программы на паскале
    очень срочнооо!!помогите! буду рада!!

    question img

Ответы 1

  • program n1;var x,y,z:integer;beginwriteln('введите два числа x, y : ');readln(x,y);if x<=y then z:=x+yelse z:=1-x+y;writeln('число z = ',z);end.program n2;var a,b:integer;beginwriteln('введите два числа a, b : ');readln(a,b);if (a>=2) and (a<=7) then writeln(a,' принадлежит промежутку [2;7]');if (b>=2) and (b<=7) then writeln(b,' принадлежит промежутку [2;7]');end.
    • Автор:

      baron88zq
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years