Помогите ,пожалуйста ,написать программу :определить есть ли число x введенное с...

Question

Помогите ,пожалуйста ,написать программу :определить есть ли число x введенное с клавиатуре в массиве от 1 до 20.

Comments

Вы имеете ввид интервал от 1 до 20?

---

Да.

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 x:real;
begin
 readln(x);
 if (x>=1)and (x<=20) then writeln('Есть') else writeln('Нет');<br>end.

Пример ввода:
19.5
Пример вывода:
Есть

Comments

Спасибо вам огромное.