Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
лиана252
07.02.2020 23:05 •
Информатика
Нужно ! написать программу проверяющую, принадлежит ли число введенное с данной клавиатуры промежутку от 0 до 5. (0; 5) (а> 0) and (a< 5) начало: begin writeln('') if ; wriyeln(''); end.
Показать ответ
Ответ:
viktordemi2015
24.06.2020 09:45
Program abc
var a:longint;
begin
Writeln('Введите число');
readln(a);
if a>0 and a<5 then writeln('Podhodit')
else writeln('Ne podhodit');
end.
0,0
(0 оценок)
Ответ:
ViKtOrIaSmIrNoVa2007
24.06.2020 09:45
Program zadanie;
var
a:real;
begin
readln(a);
if (а<0) and (a>5) then Writeln('принадлежит ') else
wriyeln('непринадлежит ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
СуПерБро123
26.12.2022 14:27
1Які дії можна виконувати з готовою діаграмою?2Що відбудеться з діаграмою, якщо змінити вихідні дані? 3Яких правил потрібно дотримуватись під час уведення формул в Excel?...
kartavaia03
01.01.2023 06:39
1.сколько файлов размером в 24000 бит,можно сохранить на диске объемом 600 мбайт 2.метеорологическая станция ведёт наблюдение за влажность воздуха.Результатом одного изменения...
gnikitav2007
14.11.2020 20:08
Составить алгоритм по которому из большего числа извлекается корень кубический, меньшее остаётся не изменным(3 задание 9 пример)...
007ek
16.02.2022 12:28
В массиве из 100 натуральных чисел до 300 найти те,которве заканчиваются на 8 не работает,в чем ошибка...
kuleminaIV
20.07.2020 19:40
по информатике,буду благодарен: подготовить мини сообщение про любой вид графики (растровая, векторная, фрактальная, трехмерная)....
святославовна
16.09.2021 18:50
І 55. Заполните таблицу, определяя информационный вес символа алфавита мощностью N. N N = 2 і (битов...
calusiker
16.06.2020 18:49
Что такое звуковая карта?Это устройство для записи и воспроизведения звука на компьютере.Это устройство для воспроизведния звука на компьютере.Это устройство для записи...
artur283
27.04.2023 07:48
Ролл в объективе и на этом моменте с тобой в одном месте в списке самых разных областях в я тебе в я тебе в глаза...
YULEMESLEILAA
14.02.2020 20:34
Найти: а) сумму всех целых чисел от 100 до 500; б) сумму всех целых чисел от a до 500 (значение a вводится с клавиатуры; a 500); в) сумму всех целых чисел от –10 до b...
Lol666kek
14.02.2020 20:34
Опишите в общих чертах работу видеосистемы персонального компьютера....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:longint;
begin
Writeln('Введите число');
readln(a);
if a>0 and a<5 then writeln('Podhodit')
else writeln('Ne podhodit');
end.
var
a:real;
begin
readln(a);
if (а<0) and (a>5) then Writeln('принадлежит ') else
wriyeln('непринадлежит ');
end.