М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
cikitka2
cikitka2
18.01.2021 16:46 •  Информатика

1) print (round(15.75 - 11.706)) 4) print((16.8//3)% 4)) 2) print(int(45.29+35.215)) 5) print((36.5//8)% 2)) 3) print(49/14) 6) 7*7//10%3

👇
Открыть все ответы
Ответ:
arhipflina
arhipflina
18.01.2021
Обозначим количество кроликов 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)
4,6(9 оценок)
Ответ:
kamillavoice
kamillavoice
18.01.2021
 Var
   d,m:byte;
Begin
Write('Введите день: ');ReadLn(d);
Write('Введите месяц: ');ReadLn(m);
Case m of
3:if d<21 then Write('Рыбы')
  else Write('Овен');
4:if d<21 then Write('Овен')
  else Write('Телец');
5:if d<22 then Write('Телец')
  else Write('Близнецы');
6:if d<22 then Write('Близнецы')
  else Write('Рак');
7:if d<23 then Write('Рак')
  else Write('Леа');
8:if d<24 then Write('Леа')
  else Write('Дева');
9:if d<24 then Write('Дева')
  else Write('Весы');
10:if d<24 then Write('Весы')
  else Write('Скорпион');
11:if d<23 then Write('Скорпион')
  else Write('Стрелец');
12:if d<22 then Write('Стрелец')
  else Write('Козерог');
1:if d<21 then Write('Козерог')
  else Write('Водолей');
2:if d<19 then Write('Водолей')
  else Write('Рыбы');
else Write('Нет такого месяца')
End;
End.
4,5(61 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ