С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Является ли заданное целое трехзначное число симмитричным относительно средней цифры https://www.cyberforum.ru/ pascalabc/ thread1235595.html
Проверить, является ли заданное целое трехзначное число симмитричным, относительно средней цифры.
Вычислить корень квадратный суммы двух заданных вещественных чисел Pascal ABC
Вычислить корень квадратный суммы двух заданных вещественных чисел a и b. Входные данные: Во входном потоке в первой строке задано два положительных вещественных числа. Выходные данные: Вывести в выходной поток одно вещественное число с точностью три знака после запятой. Пример входного файла (input.txt): 5.5 2.5 Пример выходного файла (output.txt):
Pascal ABC На сколько зарплата самого высокооплачиваемого сотрудника отличается от самого низкооплачиваемого В отделе работают 3 сотрудника, которые получают заработную плату в рублях. Требуется определить: на сколько зарплата самого высокооплачиваемого из них отличается от самого низкооплачиваемого. https://www.cyberforum.ru/ pascalabc/ thread1235588.html Pascal ABC Вывести значение каждого третьего четного элемента последовательности, начиная с первого Вывести значение каждого третьего четного элемента последовательности, начиная с первого (через два четных элемента). Входные данные: Во входном потоке в первой строке через пробел перечислены значения элементов целочисленной последовательности. Признаком окончания последовательности является число ноль. Сам ноль не является элементом последовательности. Значения элементов последовательности... https://www.cyberforum.ru/ pascalabc/ thread1235586.html
Pascal ABC Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R
Линейный массив A содержит 2*N элементов, значения которых задаются по следующей формуле a:=10*sin(N+i*i). Элементы массива нумеруются с единицы. Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R с центром в начале координат, если значения элементов А и А - координаты первой точки, элементов А и А - второй точки и т. д.
Pascal ABC Вычислить значение выражения: найти ошибку https://www.cyberforum.ru/ pascalabc/ thread1235413.html
не вижу ошибки var r,a,x,b:integer; begin read(a,b,x); r:=(sin/cos)*(sin/cos)*((0.9*a*a)/(x*(a+b))); write(r); end.
Pascal ABC В кафе продается мороженое по 3 или по 5 шариков в порции. Определить, можно ли купить K шариков мороженного https://www.cyberforum.ru/ pascalabc/ thread1235387.html
В кафе продается мороженое по 3 или по 5 шариков в порции. Определить, можно ли купить K шариков мороженного. Входные данные: Во входном потоке в первой строке задано натуральное число К (K <= 1000) Выходные данные: Вывести YES или NO. Пример входного файла (input.txt): 2 Пример выходного файла (output.txt):
Pascal ABC Найти количество наименьших по модулю элементов целочисленной числовой последовательности
Найти количество наименьших по модулю элементов целочисленной числовой последовательности. Запрещенные служебные слова: array Входные данные: Во входном потоке в первой строке задано целое число N - количество элементов числовой последовательности (0 < N < 100). Во второй строке через пробел перечислены значения элементов целочисленной последовательности. Значения элементов по модулю не...
Pascal ABC Вывести значения элементов, чтобы значение выводимого элемента было меньше значения предыдущего выведенного https://www.cyberforum.ru/ pascalabc/ thread1235375.html
Вывести значения элементов, начиная с первого так, чтобы значение выводимого элемента было меньше значения предыдущего выведенного. Входные данные: В текстовом файле в первой строке через пробел перечислены значения элементов целочисленной последовательности. Признаком окончания последовательности является число ноль. Сам ноль не является элементом последовательности. Значения элементов...
Pascal ABC Какое количество автомобилей можно собрать, закупив N болтов, M шайб и K гаек? https://www.cyberforum.ru/ pascalabc/ thread1235369.html
Для сборки одного автомобиля необходимо 100 болтов, 200 шайб и 90 гаек. Какое количество автомобилей можно собрать, закупив N болтов, M шайб и K гаек Входные данные: Во входном потоке через пробел задано три натуральных числа N, M и K. Значение всех величин не превышает 100000. Выходные данные: Вывести единственное целое число. Пример входного файла (input.txt): 200 800 90
Сколько банок не прострелил Максим и сколько банок не прострелил Степан? Pascal ABC
Друзья Максим и Степан решили пойти в тир. Решив пострелять, они выставили несколько пустых банок (не больше 100). Максим начал простреливать банки по порядку, начиная с самой левой, Степан — с самой правой. В какой-то момент получилось так, что они одновременно прострелили одну и ту же последнюю банку. Максим возмутился и сказал, что Степан должен ему кучу денег за то, что тот лишил его...
Pascal ABC Является ли фигура ромбом? https://www.cyberforum.ru/ pascalabc/ thread1235357.html
Ваня учится в школе, и ему задали
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
0

Определите, возможно ли детям сесть так, чтобы рядом с одной девочкой сидел как минимум один мальчик - Pascal ABC - Ответ 6470888

29.07.2014, 09:20. Показов 1016. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
X девочек и Y мальчиков пошли в кинотеатр и купили билеты на один ряд. Определите, возможно ли детям сесть так, чтобы рядом с одной девочкой сидел как минимум один мальчик и рядом с одним мальчиком сидела хотя бы одна девочка.
вроде правильно
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
q, w: integer;
e: boolean;
r: Text;
begin
Assign(r,'input.txt');
Reset(r);
Readln(q,w);
Close(r);
if q > w then e := (q / w <= 2)
else e := (w / q <= 2);
if e then writeln('YES')
else writeln('NO')
end.


Вернуться к обсуждению:
Определите, возможно ли детям сесть так, чтобы рядом с одной девочкой сидел как минимум один мальчик Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.07.2014, 09:20
Готовые ответы и решения:

Определите, возможно ли детям сесть так, чтобы рядом с одной девочкой сидел как минимум один мальчик
X девочек и Y мальчиков пошли в кинотеатр и купили билеты на один ряд. Определите, возможно ли...

Рассадить гостей вокруг круглого стола так, чтобы ни один гость не сидел рядом с человеком одного с ним пола
Имеется Список Приглашенных На Банкет. О Каждом Госте Известно: Фамилия, Имя И Пол. Использую...

Определить, сколькими способами могут сесть люди, чтобы не все девушки оказались сидящими рядом
На один ряд, в котором 8 стульев рассаживаются 5 парней и 3 девушки. Сколькими способами они могут...

Получить следующие сведения: названия игрушек, которые подходят как детям 4 лет, так и детям
Дан файл , содержащий сведения об игрушках: указывается название игрушки (например, кукла, кубики,...

1
29.07.2014, 09:20
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.07.2014, 09:20
Помогаю со студенческими работами здесь

Определите вероятность того, что в семье один мальчик
&quot;В семьях, имеющих по четыре ребенка, вероятности рождения девочки или мальчика считаются равными....

Как сделать так, чтобы на одной строке были 2 div, один был с левой стороны экрана, второй с правой?
Мне нужно, чтобы заголовок окна был прикреплён к левой части экрана, кнопка к правой. При...

Получить название игрушек, которые подходят как детям 4 лет, так и детям 10 лет
Дан файл ассортимент, содержащий сведения об игрушках: указывается название игрушки (кубики,...

Как сделать чтобы рядом с width:auto блоком, в одной строке находился другой
В общем, проблема в том, что я тупой (и не только), не могу понять как сделать чтобы в 1 строке...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru