С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/725: Рейтинг темы: голосов - 725, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 16.11.2012
Сообщений: 6

Определить, является ли введенное число трехзначным.

23.11.2012, 13:58. Показов 139611. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Составить программу определяющую является ли введенное число трехзначным.Результатом работы программы должно быть сообщение "является "или "не является"
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
23.11.2012, 13:58
Ответы с готовыми решениями:

Определить, является ли введённое число простым
Написать программу,которая определяет,является ли введённое число простым(делится на 1 или на само себя)

Определить, является ли число введенное пользователем, простым
Определить, является ли число введенное пользователем, простым

Определить,является ли введённое число степенью тройки
определить,является ли введённое число степенью тройки??

4
10 / 10 / 5
Регистрация: 19.04.2012
Сообщений: 16
23.11.2012, 14:27
Pascal
1
2
3
4
5
6
7
8
9
10
11
Program pr;
var n:integer;
begin
Writeln('Ââåäèòå ÷èñëî');
readln(n);
if (n>=100) and (n<1000) then
Begin
Writeln('ßâëÿåòñÿ');
end
else writeln('Íå ÿâëÿåòñÿ');
end.
1
0 / 0 / 0
Регистрация: 16.11.2012
Сообщений: 6
23.11.2012, 15:32  [ТС]
обьясниете пожалуйста)
0
1 / 0 / 2
Регистрация: 23.11.2012
Сообщений: 39
23.11.2012, 15:34
Цитата Сообщение от maksii Посмотреть сообщение
обьясниете пожалуйста)
Исходное число сравнивается с двумя числами, со 100 и с 1000. Если оно больше 100, но меньше 1000, то явно число трехзначное, иначе быть не может.
0
10 / 10 / 5
Регистрация: 19.04.2012
Сообщений: 16
23.11.2012, 20:05
Pascal
1
2
Writeln('Введите число');
readln(n);
вводим само число
Pascal
1
2
3
4
if (n>=100) and (n<1000) then
Begin
Writeln('Является');
end
если число равно или больше 100 и меньше 1000 то пишем является
Pascal
1
else writeln('Не является');
иначе пишем не является
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.11.2012, 20:05
Помогаю со студенческими работами здесь

Определить, является ли 8-чное число, введенное с клавиатуры четным
определить,является ли 8-чное число,введенное с клавиатуры четным.

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

Определить, что введенное число является полным квадратом
Рекомендация к заданию:Написать программу, в результате выполнения которой булевская переменная t получает значение TRUE, если выполняется...

Является ли целое положительное число трёхзначным?
Блин оч прошу помогите решить одну задачку в Pascal ABC вот условие: Составте программу, определяющую, является ли целое положительное...

Заданное натуральное число N является трехзначным
Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false — в противном случае....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru