Пожалуйста,помогите!Нужно срочно! Написать программу проверяющую, принадлежит ли число...

Question

Пожалуйста,помогите!Нужно срочно!

Написать программу проверяющую, принадлежит ли число введенное с данной клавиатуры промежутку от 0 до 5.

(0;5)
(а>0) and (a<5)</span>

Начало:

Program....

var...

begin

Writeln('................')

readln(...)

if .........then.........else......;

wriyeln('..................');

end.

Answer 1

Program abc
var a:longint;
begin
Writeln('Введите число');
readln(a);
if  a>0 and a<5 then writeln('Podhodit')<br>else writeln('Ne podhodit');
end.

Comments

не подохдит

---

*не подходит

---

почему?

---

проверено в паскале,чего-то не хватает

Answer 2

Program zadanie;
var
a:real;
begin
readln(a);
if (а<0) and (a>5) then Writeln('принадлежит ') else
wriyeln('непринадлежит ');
end.

Comments

тоже не подходит

---

все

---

нет

---

измени a>0 и a<5