Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
putnikk
[199]
4 года назад
8
Дан массив из тридцати элементов. Проверьте, есть ли среди элементов стоящих на четных местах такой, значение которого лежит в и
нтервале от a до b.
Если такой элемент существует - напишите YES, иначе напишите NO.
Формат входных данных
На первой строке через пробел записаны целые числа Arri (|Arri|≤1000) — элементы массива.
На второй строке записано целые положительные числа a и b.
Формат выходных данных
Строка, содержащая запись YES либо NO
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
Барбука87
4 года назад
0
0
Var
i, x, y: integer;
a: array[1..30]of integer;
begin
readln(x, y);
for i := 1 to 30 do read(a[i]);
for i := 1 to 30 do if (i mod 2 = 0) and (a[i] >= x) and (a[i] <= y) then
begin
write('YES');
exit;
end;
write('NO');
end.
Отправить
Читайте также
Разбирая склад древней техники, Катя обнаружила непонятный прибор с клавиатурой и дисплеем. При включении прибора на дисплее поя
HobbaNiNi
89
чвапролорпавывапролорпавапролорпавапролдлорпапрол
0
0
3 года назад
Сколько Кбайт составляет сообщение, содержащее 6,5 Мбайт?
МаняМаша [7]
8бит=1байт
1Кбайт=1*1024байт
1Мбайт=1*1024Кбайт=1*1024*1024байт
(и так дальше проста на 1024 умножаешь) ответ 6656
0
0
4 года назад
Составьте программу на Pascal ABC y=x2(квадрат) +3
Darkness34
Program p1;
var
x, y: integer;
begin
Write('Введите x: ');
readln(x);
y:=sqr(x)+3;
writeln('y=' + y);
end.
0
0
3 года назад
Даны два числа если оба числа отрицательные и первое больше второго то каждое увеличте в 2 раза иначе увеличте их на 2составьте
пара3иТ
Ответ (блок-схема) на картинке.
0
0
3 года назад
Поставь буквы в правельном порядке и отгадай,какие слова за4одированы.ПОЛТЕЛЬИСНИ
Dmitry24 [4]
<span>ПОЛТЕЛЬИСНИ - исполнитель</span>
0
0
3 года назад
Смотрите также:
Почему начинающим разработчикам презентаций рекомендуется пользоваться шаблонами презентаций, дизайнами презентаций и макетами с
7
·
1 ответ
С#Дано вещественное число - цена 1 кг конфет. Вывести стоимость 1, 2,..., 10кг конфет. Дано вещественное число - цена 1 кг конф
6
·
1 ответ
Ввести а и б и вывести квадраты и кубы чисел от а до б. Программа Паскаль
6
·
1 ответ
Дано число. Если оно больше 10, то вывести на консоль, если оно меньше 3, увеличить его на 11 и вывести на консоль, в остальных
12
·
1 ответ
Задание 2. Составьте программу, определяющую, является ли сумма цифр данного четырехзначного числа n четным числом. В паскале, с
12
·
1 ответ
Какова мощность алфавита, с помощью которого записано сообщение, содержащее 3072 символа, если его объем составляет 1,5 Кб?
7
·
1 ответ
Помогите подалуйста! нужно написать алгоритм следующих 2 заданий на языке Паскаля 1. Даны два действительных положительных числ
5
·
2 ответа
Друзья !!! Кто знает как сжать призентацию ( пауэр поинт ) до малых размеров,для передачи её по электронной почте??? Пожалуйста
6
·
1 ответ
Составить программу в паскале. Протабулировать функцию Y=cosx+6x, если x принадлежит интервалу (0,1;2) с шагом 0,2.
15
·
1 ответ
Объясните разницу между значениями слов „папка ” и „вложенная папка”
14
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!