пожалуйста помогите . нужно написать программу, проверяющую принадлежит ли число введенное с клавиатуры интервалу (0,5)
10-11 класс
|
var x:real;
begin
readln(x);
if (x<5)and(x>0) then writeln('prinadlejit') else writeln('ne prinadlejit');
end.
Другие вопросы из категории
если известно, что они покрашены в шахматном порядке и клетка (1, 1) - белая.
Формат входных данных
Первая строка входного файла содержит единственное целое N (1 <= N <= 10).
Формат выходных данных
Выведите N строк в каждой N символов соответствующий цвету этой ячейки: ‘W’ – если белая и ‘B’ – если черная.
Читайте также
1.Составьте программу, проверяющую, верно ли
утверждение, что введенное вами целое число является четным.
2.
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
язык - pascal
13.
Нужно написать программу на цикле с предусловием, на Паскале.
На вход программе подаются сведения о
телефонах всех сотрудников некоторого учреждения. В первой строке
сообщается количество сотрудников N, каждая из следующих N строк имеет
следующий формат:
<Фамилия> <Инициалы> <телефон>
где <Фамилия> – строка, состоящая не более чем из 20 символов, <Инициалы> - строка, состоящая не более чем из 4-х символов (буква, точка, буква, точка), <телефон> – семизначный номер, 3-я и 4, я, а также 5-я и 6-я цифры которого разделены символом «–». <Фамилия> и <Инициалы>, а также <Инициалы <телефон> разделены одним пробелом. Пример входной строки:
Иванов П.С. 555-66-77
Сотрудники
одного подразделения имеют один и тот же номер телефона. Номера
телефонов в учреждении отличаются только двумя последними цифрами.
Требуется написать как можно более эффективную программу, которая будет
выводить на экран информацию, сколько в среднем сотрудников работает в
одном подразделении данного учреждения.