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