Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Fluttershy0
12.01.2021 07:34 •
Информатика
На ферме содержат кур и кроликов. у всего поголовья 128 лап. вывести на экран все возможные варианты количества кур и кроликов на ферме. ( . )
Показать ответ
Ответ:
mariael10
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 оценок)
Популярные вопросы: Информатика
merit6052
10.07.2022 07:10
Жасұлан көбейту кестесі жобасын құрды...
danilkuzin201
13.03.2023 07:00
ПОБЫСТРЕЙ ИНФОРМАТИКА...
daniilkornev05
12.10.2021 18:22
Напишите программу, которая в последовательности целых цисел вычисялет сумму всех чисел, кратны 5 или 9. Программа получает на вход целые числа, колличество введеных чисел...
jenjenle
21.03.2020 07:52
Почему блоки расскрашены в разные цвета? ...
Hhjkklknbggfddxxg
15.02.2021 07:46
Написать программу Паскаль по блок схеме...
Соня12811
15.10.2022 15:40
9. Какие из перечисленных высказываний являются ложными?а) принтер является устройством ввода информации. б)все повествовательные предложения являются высказываниямив) Объектами...
gorodchikova23
25.06.2022 04:49
Составьте алгоритм (блок – схему) для увеличения четного числа в два раза, а нечетного в 10 раз. Для определения четности примените функцию mod....
Тимофей17727
09.01.2020 17:44
Разберитесь как работает ещё одна функция замены(желательно в PascalABC)...
anetta3568
28.09.2021 15:07
Ребус — это слово или фраза, закодированная с комбинации фигур, букв и знаков. Расшифруй данное сообщение! цапля л кит елка...
PROMES
14.04.2022 14:50
Если фрагмент поместить в буфер обмена, то сколько раз его можно вставить в текст ? А)один Б)это зависит от количества строк в данном фрагменте В)столько раз, сколько потребуется...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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)