program CheckInterval; var number, lowerBound, upperBound: integer; begin writeln('Введите число:'); readln(number); writeln('Введите нижнюю границу интервала:'); readln(lowerBound); writeln('Введите верхнюю границу интервала:'); readln(upperBound); if (number >= lowerBound) and (number <= upperBound) then writeln('Число принадлежит интервалу.') else writeln('Число не принадлежит интервалу.'); end.
Эта программа позволяет пользователю ввести число и задать нижнюю и верхнюю границу интервала. Затем она проверяет, принадлежит ли введенное число этому интервалу и выводит соответствующее сообщение.
Пример программы на Pascal:
program CheckInterval;var
number, lowerBound, upperBound: integer;
begin
writeln('Введите число:');
readln(number);
writeln('Введите нижнюю границу интервала:');
readln(lowerBound);
writeln('Введите верхнюю границу интервала:');
readln(upperBound);
if (number >= lowerBound) and (number <= upperBound) then
writeln('Число принадлежит интервалу.')
else
writeln('Число не принадлежит интервалу.');
end.
Эта программа позволяет пользователю ввести число и задать нижнюю и верхнюю границу интервала. Затем она проверяет, принадлежит ли введенное число этому интервалу и выводит соответствующее сообщение.