Войти Регистрация Спроси ai-bota

2. Реши кроссворд 1. Единица измерения информации.
2. Организация, предоставляющая услуги доступа
к сети Интернет и иные связанные с Интернетом
услуги.

Показать ответ

Ответ:

Hehehe225

10.05.2023 06:52

Uses Graphabc;
begin
SetWindowWidth(800);
SetWindowHeight(900);
SetPenWidth(1);
PutPixel(400, 400, clred);
Line(0, 150, 100, 150);
Line(0, 150, 100, 200);
Line(100, 150, 150, 100);
Line(100, 50, 200, 150);
Line(100, 50, 200, 0);
Line(200, 0, 250, 50);
Line(250, 50, 300, 0);
Line(300, 0, 300, 100);
Line(300, 100, 350, 100);
Line(350, 100, 250, 150);
Line(250, 150, 300, 350);
Line(300, 350, 400, 400);
Line(50, 300, 100, 200);
Line(50, 300, 100, 250);
Line(100, 250, 150, 550);
Line(150, 550, 300, 650);
Line(400, 400, 500, 250);
Line(500, 250, 650, 250);
Line(650, 250, 750, 450);
Line(750, 450, 650, 400);
Line(650, 400, 550, 500);
Line(550, 500, 650, 450);
Line(750, 600, 650, 450);
Line(600, 550, 750, 600);
Line(700, 700, 600, 550);
Line(500, 600, 700, 700);
Line(400, 650, 500, 600);
Line(400, 800, 400, 650);
Line(450, 850, 400, 800);
Line(250, 850, 450, 850);
Line(350, 800, 250, 850);
Line(300, 650, 350, 800);
end.

0,0(0 оценок)

Ответ:

Caflen

27.06.2021 23:45

Обозначим количество кроликов 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 оценок)

Популярные вопросы: Информатика

annakraevaya061

10.04.2020 04:40

Составить программу.паскаль. найти сумму чисел, делящихся без остатка на 4, меньших 100 и заканчивающихся на 2 или 8....

NoName2345

10.08.2022 20:04

Дан фрагмент электронной таблицы. Из ячейки D2 в одну из ячеек диапазона E1:E4 была скопирована формула. При копировании адреса ячеек в формуле автоматически изменились, и значение...

pmv2002rusp0bof2

20.02.2020 23:43

с информатикой 6класс с информатикой 6класс >...

namdokp09srw

05.06.2021 16:16

Найдите верные условия...

МаксимаДолгун02

09.08.2022 03:30

Алгоритмічна структура, що дає змогу виконавцеві алгоритму вибрати сценарій подальших дій залежно від істинності певного висловлювання...

sonyachibineva

28.08.2022 03:19

Операции mod и div можно выполнять только над целыми числами: a) a: =21 div 5=? b) a: = 2 mod 3=? b: = 20 mod 5=? b: = 36.0 mod 6=? c: = 14 div 6.0=? c: = 81 div 0=? d: = 14 mod...

Finger2280

18.12.2020 07:55

Зал кинотеатра вмещает 35 рядов кресел по 40 мест в ряду.стоимость билетов: с 1 по 10 ряд=25 копеек; с 11 по 20 ряд=40 копеек; с 21 по 35 ряд=50 копеек.составить алгоритм вычесления...

16912

07.01.2020 01:20

Составьте схему получения пропанола-2 из пропана , над стрелками переходов укажите условия осуществления реакции и формулы необходимых для этого веществ....

regenko1

07.01.2020 01:20

Ширина лезвия лопаты 20см,толщина 3 мм.человек нажимает на лопату с силой 30н.определите давление лопаты на почву....

Sunanam

07.01.2020 01:20

Найдите первообразную f для функции f(x)= на(0; +), график которой проходит через точку m(4; 5)...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку