Я, конечно, не художник, но надеюсь это похоже на ёлки.
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.
Напиши Program house; без каких либо знаков
Контроллер назван «северным» благодаря («географическому») расположению в верхней части системной (материнской) платы, расположен обычно под процессором и представляет собой квадратный или прямоугольный микрочип<span>.
южным назван по аналогии с северным</span>
A(I) - массив
L - лучший рез-т
H - худший рез-т
S - средний рез-т
О - общая сумма рез-тов
CLS
DIM A(8)
FOR I=1 TO 8 STEP 1
INPUT A(I);
NEXT (I)
L = A(1)
H = A(1)
О=0
FOR I=1 TO 8 STEP 1
IF L<A(I) THEN L=A(I)
IF H>A(I) THEN H=A(I)
О=O+A(I)
NEXT (I)
S=O/8
останется только вывод полученных результатов
1.
Можно ввести шаг
и начальное значение Х
Лист защищен без
пароля.
2.
<span>Запустить
проводник, нажав F3 ввести в поле поиска
*.doc
или
*.docx</span><span> </span>