Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Sashunya20061
07.12.2022 07:42 •
Информатика
На ферме содержат кур и кроликов. у всего поголовья 128 лап. вывести на экран все возможные варианты количества кур и кроликов на ферме. ( . )
Показать ответ
Ответ:
tanyagrandf
06.10.2020 05:47
Обозначим количество кроликов r, количество кур - c.
Тогда 2c+4r=128; c+2r=64 → c=64-2r, r=0,1,2,...32
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=Range(0,32).Select(r->(r,64-2*r));
Write('(Кролики-куры):'); s.Println
end.
Результат:
(Кролики-куры):(0,64) (1,62) (2,60) (3,58) (4,56) (5,54) (6,52) (7,50) (8,48) (9,46) (10,44) (11,42) (12,40) (13,38) (14,36) (15,34) (16,32) (17,30) (18,28) (19,26) (20,24) (21,22) (22,20) (23,18) (24,16) (25,14) (26,12) (27,10) (28,8) (29,6) (30,4) (31,2) (32,0)
0,0
(0 оценок)
Популярные вопросы: Информатика
Rookgolf60
03.01.2021 19:26
Внимательно прочитайте слова каждой строки. для каждого слова, стоящего перед скобками, найдите в скобках два самых важных слова, поясняющих его смысл. сад (растения, садовник, забор,...
alinka660066
01.12.2020 19:47
По информатике два три примера слов омонимов выражающие различные понятия. катя галя соня и тамара родились 2 марта 17 мая 2 июля и 20 марта.соня и галя родились в одном месяце а дни...
kkira1
01.12.2020 19:47
Сделайте так чтобы если длинна фамилий одинакова чтобы выводилась не про одинаковую длинну без лишнего program poc; var a,b: string; c,d: integer; begin writeln ( введите первую фамилию...
direcrtbyrage
16.01.2022 09:44
Нехай елементи табличної величини a[1..10] набувають відповідно значень 5, -6, 3, 8, 25, -12, 15, 0, -2, 4. Яке значення набуватиме змінна n після виконання наступного фрагменту програми?...
sakulich05
04.06.2022 16:51
Информатика 1. а = ложь, в = истина, с = ложь. Определите результаты вычислений. 2. Постройте таблицы истинности. А) не (а и в) или с Б) не а и в ЗАРАНЕЕ...
Токаарічіна
26.09.2022 13:00
Каким правилам необходимо следовать при создании таблицы по тексту? Укажите один или несколько правильных вариантов ответа: 1.Названия, строк и столбцов, должны быть краткими, но понятными....
nicoguy
25.09.2021 14:24
Даны три числа: а = 11000^(2), в = 18^(10), с = 27^(10). переведите а, в и с в двоичную систему счисления и выполните поразрядно логические операции (a v b) & c. ответ дайте в...
Vitalihka
25.09.2021 14:24
Написать программу решения уравнения ax2+bx=0 для произвольных а и b. в паскале , нужно ! заранее ))...
sobitlogin
01.02.2023 10:01
За четверть ученик получил 120 оценок. сообщение о том, что он получил пятерку, несет 2 бита информации. сколько пятерок ученик получил за четверть?...
Jora2001Voronov
29.10.2022 18:06
Следующий член последовательности 149,162,536,496,481 равен? 1-100 2-314 3-466 4-525...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Тогда 2c+4r=128; c+2r=64 → c=64-2r, r=0,1,2,...32
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=Range(0,32).Select(r->(r,64-2*r));
Write('(Кролики-куры):'); s.Println
end.
Результат:
(Кролики-куры):(0,64) (1,62) (2,60) (3,58) (4,56) (5,54) (6,52) (7,50) (8,48) (9,46) (10,44) (11,42) (12,40) (13,38) (14,36) (15,34) (16,32) (17,30) (18,28) (19,26) (20,24) (21,22) (22,20) (23,18) (24,16) (25,14) (26,12) (27,10) (28,8) (29,6) (30,4) (31,2) (32,0)