Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nikita22o
23.03.2020 07:52 •
Информатика
Ввести 4 числа, подсчитать количество чисел принадлежащих интервалу [-1 ; 5).
Показать ответ
Ответ:
vualada
08.10.2020 07:04
Var i,prin,a: Integer;
begin
prin:=0;
for i:=1 to 4 do
begin
WriteLn('введите число');
readln(a);
if(a>=-1) and(a<5) then inc(prin);
end;
WriteLn();
WriteLn('кол-во чисел принадлеж: ',prin);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
spudimun50
10.07.2022 07:57
Выпишите числа, которые правильно записаны в соответствующих системах счисления....
9573st
09.04.2020 00:19
Для групповых операций с файлами используются маски имен файлов. маска представляет собой последовательность букв и цифр,в которых также могут встречаться следующие...
Smaik111
31.03.2023 16:46
По информатике перевести число 549 из десятичной системы счисления в двоичную, переведите в биты 1/4 к байта, переведите двоичные коды в десятичные 101000,11001,10100,11110,1010,...
leg3
19.11.2020 07:33
Нужно расставить 4 введенных числа числа в порядке возрастания (си)...
Greeegooo
06.12.2021 13:59
Где то в поле робота находятся находятся 2 горизонтальные стены смещенные друг относительно друга, размеры которых неизвестны. робот из произвольной клетки над верхней...
кен91
04.09.2021 19:43
Дано изображение 1024*640. каждая точка имеет 16 цветов. определить информационный объём....
neriman04
30.03.2023 04:55
Написать разветвляющийся алгоритм можно ехать на такси со скоростью v1, и оплатой p1 либо идти пешком со скоростью v2 бесплатно. как с наименьшими затратами преодолеть...
Andreychic23
31.12.2020 00:59
5- 9 классыинформатика 5+3 б массив, состоящий из 15 целых чисел, заполнить числами из промежутка от -20 до 40. произвести перестановку 1-го и последнего(n) элемента....
ayna4
02.07.2021 06:07
1) решить , составив линейный алгоритм ее решения и код программы на c++. цена за единицу блок и контроля факелом газовой скважины – х руб. (ввести с клавиатуры)....
dimaonisko
05.08.2021 16:31
Для узла с ip-адресом 145.192.94.230 адрес сети равен 145.192.80.0. чему равен третий слева байт маски? ответ запишите в виде десятичного числа...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
prin:=0;
for i:=1 to 4 do
begin
WriteLn('введите число');
readln(a);
if(a>=-1) and(a<5) then inc(prin);
end;
WriteLn();
WriteLn('кол-во чисел принадлеж: ',prin);
end.