Помогите написать программу на турбо паскале(((Вывести на экран известье, принадлежат ли

Помогите написать программку на турбо паскале(((
Вывести на экран сообщение, принадлежат ли оба реальных числа X и Y сектору [0;20]

Задать свой вопрос
1 ответ
Var
x, y: integer;
begin
//вводим x и y
readln(x);
readln(y);
//проверяем x
if (x gt;= 0) and (xlt;=20) then
   writeln('X принадлежит')
else
   writeln('X не принадлежит');
//проверяем y
if (y gt;= 0) and (ylt;=20) then
   writeln('Y принадлежит')
else   
writeln('Y не принадлежит');
end.
Виталий Ланикамер
пардон, x и y действительные, надобно заменить строчку
Алеша Арютин
x, y: integer; на x, y: real;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт