Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Разработать программу, позволяющую осуществлять перевод чисел из одной системы счисления в другую https://www.cyberforum.ru/ turbo-pascal/ thread1354936.html
Ребят всем привет. Пишу курсовую работу по паскалю. Задание таково: Разработать программу, позволяющую осуществлять перевод чисел из одной системы счисления в другую. Пользователь в диалоговом...
Turbo Pascal Составить подпрограмму вычисления среднего арифметического элементов заданного участка массива
помогите решить задачу в паскале Дана таблица из 10 элементов. Составить подпрограмму вычисления среднего арифметического элементов заданного участка. Обращаясь к подпрограмме вычислить среднее...
Обнулить минимальное количество элементов так, чтобы сумма элементов столбца матрицы не превышала заданную Turbo Pascal
Составить процедуру обнуляющую минимальное количество элементов так, чтобы сумма элементов столбца матрицы из натуральных чисел A(m x n) не превышала заданную Благодарю заранее!
Turbo Pascal Найти минимальный элемент среди столбцов матрицы которые упорядочены uses crt; const nmax=5000; type mas=array of real; const glav:array of string=('1-Zadanie1', '2-Zadanie2 ', '3-O razrabot', ... https://www.cyberforum.ru/ turbo-pascal/ thread1354536.html
Turbo Pascal Написать рекурсивную функцию нахождения цифрового корня натурального числа https://www.cyberforum.ru/ turbo-pascal/ thread1354373.html
Написать рекурсивную функцию нахождения цифрового корня натурального числа. Цифровой корень данного числа получается следующим образом. Если сложить все цифры этого числа, затем все цифры найденой...
Задания по блок-схеме Turbo Pascal
Не могли бы вы помочь с заданиями на этой фотографии.
Turbo Pascal Найти все натуральные числа, не превосходящие 600, у которых сумма цифр является делителем самого числа
Найти все натуральные числа, не превосходящие 600, у которых сумма цифр является делителем самого числа.
Turbo Pascal Приписать к числу 999 слева три такие цифры, чтобы полученное шестизначное число делилось на 13, 14, 19 Приписать к числу 999 слева три такие цифры, чтобы полученное шестизначное число делилось на 13, 14, 19. https://www.cyberforum.ru/ turbo-pascal/ thread1354328.html
Turbo Pascal 4-х значное число, а также число, записанное теми же цифрами в обратном порядке, оба - точные квадраты https://www.cyberforum.ru/ turbo-pascal/ thread1354327.html
четырехзначное число, а также число, записанное теми же цифрами в обратном порядке, оба являются точными квадратами. Найти эти числа.
Turbo Pascal Найти все трехзначные числа, которые являются полными квадратами и записываются тремя нечетными цифрами Найти все трехзначные числа, которые являются полными квадратами и записываются тремя нечетными цифрами. https://www.cyberforum.ru/ turbo-pascal/ thread1354321.html
1643 / 1072 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
16.01.2015, 17:15 0

Определить, попадает ли число Х в интервалы от –14 до 2 и от 5 до 10

16.01.2015, 17:15. Показов 2239. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено ilnazey199 как решение

Решение

Pascal
1
2
Readln(X);
If X in [-14..2,5..10] then Writeln(abs(X));


Вернуться к обсуждению:
Определить, попадает ли число Х в интервалы от –14 до 2 и от 5 до 10
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2015, 17:15
Готовые ответы и решения:

Определить, попадает ли число в отрезок
Задания для самостоятельного выполнения С клавиатуры вводятся два числа задающие отрезок ....

Определить, попадает ли число в заданный интервал
Создать функцию и процедуру с оператором множественного выбора Select Case. И процедура и функция...

Определить, попадает ли число в заданный диапазон
здоровый щенок играет не менее 8 часов в день. с клавиатуры вводится время игры щенка Пуджика Т ч....

Получить число и определить, попадает ли оно в диапазон
1.Получить число и определить, попадает ли оно в диапазон .

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.