• Составить программу на языке Паскаль: На координатной плоскости дана точка (х;у). Определите номер координатной четверти.

Ответы 1

  • var x,y:integer;begin writeln('введите x'); readln(x); writeln('введите y'); readln(y);  if (x>0) and (y>0) then writeln ('точка лежит в первой четверти');  if (x<0) and (y>0) then writeln ('точка лежит во второй четверти');  if (x>0) and (y<0) then writeln ('точка лежит в четвёртой четверти');  if (x<0) and (y<0) then writeln ('точка лежит в третьей четверти');   if (x=0) or (y=0) then writeln ('такой точки нет');  end.
    • Автор:

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

Войти через Google

или

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

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

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