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.
Тогда 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)