Даны A1, A2, A3. Найти, есть ли посреди них переменная, значение

Даны A1, A2, A3. Определить, есть ли среди них переменная, значение которой лежит в диапазоне от 5 до 10? Если такой переменной нет, вывести соответствующее известие

Задать свой вопрос
1 ответ
Program asd;
Var a1,a2,a3:integer;
 sr:real;
BEGIN
Write('Введите А1: ');
 Readln(a1);
 Write('Введите A2: ');
Readln(a2);
Write('Введите А3: ');
Readln(a3);
If (a1gt;=5) and (a1lt;=10) then Writeln('Есть. ',a1) 
 else 
  If (a2gt;=5) and (a2lt;=10) then Writeln('Есть. ',a2)   
else 
  If (a3gt;=5) and (a3lt;=10) then Writeln('Есть. ',a3) 
else  
  Writeln('Нету.')
END.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт