Написати програму, що перевіряє, чи належить число ,введене з клавіатури інтервалу[0,5]

Question

Написати програму, що перевіряє, чи належить число ,введене з клавіатури інтервалу[0,5]

Answer 1

Короткий вариант:

Var A:integer;
Begin
Write('Введите число: ');ReadLn(A);
WriteLn((0<=A)and(A<=5));<br>End.



Более полный вариант:

Var
   A:integer;
Begin
Write('Введите число: ');ReadLn(A);
if (0<=A)and(A<=5) then Write('Принадлежит')<br>else Write('Не принадлежит')
End.