Question

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

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

 

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

Начало:

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')
else writeln('Ne podhodit');
end.

Answer 2

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

Answer 3

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

Answer 4

все

Answer 5

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