Как могут соотноситься между собой числа: (a) одно число 0, второе - нечетное в промежутке [1, 27] (получается, если в исходном числе одна четная цифра - 0 - и три нечетных, или три нуля и одно нечетное) (b) одно число 0, второе - четное в промежутке [2, 36] (получается, если в исходном числе нет нечетных цифр или нет четных цифр или два нуля и две нечетные цифры) (с) одно число четное в промежутке [2, 8], второе нечетное в промежутке [3, 27] (получается, если одна чётная цифра и три нечётных) (d) одно число четное в промежутке [2, 24], второе нечетное в промежутке [1, 9] (получается, если одна нечётная цифра и три четных) (e) оба числа четные, одно в промежутке [2, 18], второе в промежутке [2, 16] (получается, если две чётных цифры и две нечётных)
Дальше каждое число (кроме 370) разбито на 2, в скобках стоит тот случай, под который подпадает число 236: 23, 6 (c, +) 1313: 13, 13 (-) 270: 27, 0 (a, +) 1114: 11, 14 (<, -) 1614: 16, 14 (e, +) 187: 18, 7 (c, +) 370: - (-) 294: 29, 4 (-) 40: 4, 0 (b, +) Ответ. 5 чисел
Два конца два кольца посередине гвоздик Вокруг проруби под холмом сидят белы голуби Оправа похожа на два обруча,два стекла похожи на два озера,а дужка похоже на мост
Будет работать только в Pascal.ABC. Желательно вводите величины от 30-50, так как всё измеряется в пикселях.
Program Zagacha; Uses GraphABC; Var r, a, b: Integer; Begin WriteLn('Введите значение r'); ReadLn(r); WriteLn('Введите значение a'); ReadLn(a); WriteLn('Введите значение b'); ReadLn(b); If ((r + a + b) < 30) Or ((r + a + b) > 200) Then Begin r := 50; a := 100; b := 100; <span>End; </span>DrawCircle(Round(Window.Width / 2), Round(Window.Height / 2), r); DrawRectangle(Round((Window.Width - a) / 2), Round((Window.Height - b) / 2), Round((Window.Width + a) / 2) + 1, Round((Window.Height + b) / 2) + 1); If (a = b) And (a * b = 4 * r * r) Then TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность вписана') Else If (a = b) And (a * b = 2 * r * r) Then TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность описана') Else TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность посторонняя') End.