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

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

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

Начало:

Program....

var...

begin

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

readln(...)

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

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

end.

2

Ответы и объяснения

2013-11-26T16:52:56+04:00
Program abc
var a:longint;
begin
Writeln('Введите число');
readln(a);
if  a>0 and a<5 then writeln('Podhodit')
else writeln('Ne podhodit');
end.
не подохдит
*не подходит
почему?
проверено в паскале,чего-то не хватает
2013-11-26T16:54:48+04:00
Program zadanie;
var
a:real;
begin
readln(a);
if (а<0) and (a>5) then Writeln('принадлежит ') else
wriyeln('непринадлежит ');
end.
тоже не подходит
все
нет
измени a>0 и a<5