// PascalABC.NET 3.2, сборка 1344 от 22.11.2016 begin var a:=ReadReal('Введите число'); Write(a,' '); if (a<2) or (a>12) then Write('не '); Writeln('принадлежит интервалу [2;12]') end.
Примеры Введите число 3.18 3.18 принадлежит интервалу [2;12]
Введите число 16 16 не принадлежит интервалу [2;12]
begin
var a:=ReadReal('Введите число');
Write(a,' ');
if (a<2) or (a>12) then Write('не ');
Writeln('принадлежит интервалу [2;12]')
end.
Примеры
Введите число 3.18
3.18 принадлежит интервалу [2;12]
Введите число 16
16 не принадлежит интервалу [2;12]