Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
lilyabelousova
24.01.2022 02:46 •
Информатика
Решить, вообще не шарю в паскале дана таблица целых чисел от a1 до an (n -произвольная). найти количество чисел принадлежащих отрезку x y
Показать ответ
Ответ:
Human333
16.07.2020 23:50
var
n,x,y,a,i,k : integer;
begin
writeln ('Введите диапозон(два числа):');
readln (x,y);
writeln ('укажите длину последовательности');
readln (n);
//если n задается в коде то вместо 2 вышеидущих
//использовать строку -->>
//n := цифра;
k := 0;
for i := 1 to n do
begin
readln (a);
if (a>=x) and (a<=y) then
k := k +1;
end;
writeln (k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tankist09056
06.07.2020 14:18
На одной чашке весов лежат 8 яблок, а на другой – 3 ананаса. если добавить один такой же ананас к яблокам, то весы будут уравновешены. значит, ананас весит столько же, сколько...
artemkatopchik
23.05.2022 10:15
50 пятое в практической части выести две числа найти наибольшее четное число при наличии двух условий пишется например так...
Níkiskastarling28
08.07.2021 01:07
Информатика, правый мост видюхи. за что ор отвечает...
неманема
23.08.2021 08:26
Сейчас нужно сдать! язык программирования - free pascal после праздника гости решили разъехаться на такси. в машину помещается только 4 пассажира. какое наименьшее число машин...
molonchik
21.07.2020 05:23
2. определите три функции процессора. ответ - + . 1) выполняет арифметические операции 2) хранит запущенные программы 3) содержит документы, отправленные на печать 4) использует...
Соня2343
02.04.2022 13:32
3. запишите число в развёрнутой форме: а) 10011(2) = б) 254(8) = 4. запишите число в свёрнутой форме: а) 1 • 24 + 1 • 21 = б) 1 • 46 + 3 • 44 + 2 • 42 = 5.укажите варианты, содержащие...
mallaya01
22.09.2021 16:45
Скопируйте дерево каталогов , включая пустые, расположенные в месте , путь к которому задайте самостоятельно , в точку назначения на другом локальном диске. сделайте на командной...
virabasusta
12.05.2020 08:15
Є24 монети однакової вартості серед яких є фальшива відомо що вона легша від інших. як визначити фальшиву монету 3 зважуваннями терезами...
FvitalikA
18.07.2021 04:06
Развернутым некоторый язык содержит только трёхбуквенные слова, которые можно образовывать из букв его алфавита в любых комбинациях. известно, что словарный запас языка составляет...
Tupayagirl1
23.03.2023 22:42
Записан рост (в сантиметрах) пяти учащихся: 154, 160, 154, 161, 152. на сколько отличается среднее арифметическое этого набора чисел от его медианы? ответ запишите цифрами....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,x,y,a,i,k : integer;
begin
writeln ('Введите диапозон(два числа):');
readln (x,y);
writeln ('укажите длину последовательности');
readln (n);
//если n задается в коде то вместо 2 вышеидущих
//использовать строку -->>
//n := цифра;
k := 0;
for i := 1 to n do
begin
readln (a);
if (a>=x) and (a<=y) then
k := k +1;
end;
writeln (k);
end.