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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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

Var A:integer;

Begin

Write(‘Введите число: ‘);ReadLn(A);

WriteLn((0<=A)and(A<=5));

End.

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

Var

   A:integer;

Begin

Write(‘Введите число: ‘);ReadLn(A);

if (0<=A)and(A<=5) then Write(‘Принадлежит’)

else Write(‘Не принадлежит’)

End.