Ты разве уже это не просил? Внутри кода замени все вопросы и ответы на свои. Затем скомпилируй если надо
НЕ (X < 6), следовательно, X >= 6
X нечетное
Между ними стоит "И", значит условия должны выполняться одновременно.
X >= 6 И X нечетное.
Наименьшее число будет 7.
Ответ: 7
<h2>PascalABC.NET 3.4.2, сборка 1978 (12.02.2019)
</h2>
- program task31143948;
- const
- N = 12;
- var
- arr: array[1..N] of real;
- Sum: real;
- begin
- Sum := 1;
- for var i := 1 to N do
- begin
- arr[i] := Random()*4 - 1;
- Writeln(arr[i]:5:2);
- if arr[i] < 0 then
- Sum := Sum * arr[i]
- end;
- if Sum = 1 then
- Write('ПРОИЗВЕДЕНИЕ = 0')
- else
- Writeln('ПРОИЗВЕДЕНИЕ = ', Sum:5:2);
- end.
Я, конечно, не художник, но надеюсь это похоже на ёлки.
uses GraphABC;
begin
For var i := 0 to 4 do
begin
SetBrushColor(clGreen);
FillPie(80 + 120 * i, 100, 25, -50, -130);
FillPie(80 + 120 * i, 115, 40, -50, -130);
FillPie(80 + 120 * i, 135, 60, -50, -130);
FillPie(80 + 120 * i, 160, 75, -50, -130);
SetBrushColor(clBrown);
FillRectangle(74 + 120 * i, 234, 86 + 120 * i, 245)
end;
end.
