<em>// PascalABC.NET 3.2, сборка 1412 от 25.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadSeqIntegerWhile('Вводите, 0- конец:',k->k<>0).ToArray;
Writeln('П=',a.Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Пример</u>
Вводите, 0- конец: 61 1 -86 -23 -35 -57 96 -54 -3 -90 -12 -62 3 -47 27 90 85 0
П=7300372606875554895360000
Еслия правильно понял, то:
Входы для информации:
- гнезда (разъёмы для перефирии)
- CD-DVD-привод
- Дискетки
- Сканирование через принтер
- Ввод с клавиатуры, клик мышкой на опр. знаках
- запись с микрофона
- из интернета
(ещё возможно: вход из спящего режима, вход в систему после включения компьютера (в этом случае информация загружается в оперативную память для запуска Windows))
Выходы:
- Гнёзда для перефирии
- печать
- в интернет
- монитор
и т.д.
Чертежник действует на координатной плоскости и предназначен для построения рисунков, чертежей и графиков.
Команды управления Чертежником - поднять перо, опустить перо, сместиться в точку (арг вещ х,у), сместиться на вектор (арг вещ х,у), установить цвет (лит наименование цвета), надпись (вещ ширина_знакоместа, лит текст).
<span>В команде </span>сместиться в точку<span> в качестве (х,у) выступают абсолютные значения координат, а </span>сместиться на вектор<span> - значения приращений по соответствующим осям.</span>
При перемещении опущенного пера за ним остается след - отрезок от старого положения пера до нового, а при перемещении с поднятым пером следа не остается).
<span>Команда </span>установить цвет задает цвет пера: ”черный”, ”белый”, ”красный”, ”оранжевый”, ”желтый”, ”зеленый ”, ”голубой”, ”синий”, ”фиолетовый”. По умолчанию используется черный цвет. Названия цветов пишутся в кавычках.
<span>При использовании исполнителя Чертежник программа должна начинаться со строчки «использовать Чертежник».</span>