1.какое расширение имеют файлы-программы: аini, .cpp б).txt, .doc в).exe, .com г).wmf, .dll 2.для создания базы данных следует выбрать команды: а)создать б)открыть в)печать г)новая база данных д)файл е)закрыть ж)справка

1- в 2 - даг

Var a, n, ch, nch, i: integer; begin write("n: "); readln(n); ch: =1; nch: =0; for i: =1 to n do   begin   read(x);   if x mod 2=0     ch: =ch*x;   else     nch: =nch+x;   end; if ch=1   ch: =0; writeln("произведение чётных: ", ch, "; сумма нечётных: ", nch, "."); end. var i, n, o, p, x: integer; begin write("n: "); readln(n); p: =0; o: =0; for i: =1 to n do   begin   read(x);   if x> 0     inc(p);   if x< 0     inc(o);   end; write("кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". разница: ", abs(p-o)); end.

Лестница с перилами:)

Создаем прямоугольник, для этого используем Shapes (rectangle)

• С инструмента Push/Pull, создаем из нашего прямоугольника параллелепипед.Теперь используем  Lines для того, чтобы разделить наш параллелепипед на 8 одинаковых частей. Прежде всего, нужно разделить одну из граней на 2 половины (точка середины голубого цвета), потом эти половины еще на половинки и так далее.Берем инструмент Push/Pull, и отодвигаем каждую из ступенек,как показано на рисунке.Создаем окружность Shapes (сircle) и поднимаем ее на нужную высоту Push/Pull. Выделяем Select и копируем, для этого зажимаем ctrl+C. зажимаем ctrl+V и используем Move, чтобы перенести столбы на ступеньки, это действие повторяем 8 раз.Выделяем нашу половину Select, копируем  ctrl+C и вставляем ctrl+V. Теперь используем инструмент Scale, чтобы отзеркалить скопированную половину.Перемещаем одну из половин ко второй(Move)Стираем линию середины Eraserом.