смотреть бесплатно солнечное затмение

Комплексное обслуживание создаваемых организаций Во время своей деятельности, каждая организация заказывает многие услуги сторонних фирм, такие как: заправка картриджей, изготовление визиток, сувенирной и промо-продукции, изготовление рекламы и др. Такие услуги объединены общим понятием В2В (БИзнес для БИзнеса). У давно действующих компаний, в большинстве случаев заключены договора с обслуживающими организациями, которые предоставляют услуги на наиболее выгодных условиях на постоянной основе) Однако бывает и так, что заказ разовой услуги (такой как например изготовление печати или vip-визитки ) выгоднее заказать у сторонней организации, чем у постоянного партнера. Вновь создаваемые организации редко заключают договора на постоянное обслуживание по причине разовой необходимости в данных услугах. Для них мы предлагаем комплексное решение по обслуживанию в большинстве видов услуг (Дизайн и изготовление рекламы, создание мини-сайтов и презентаций, обслуживание телекомуникационных сетей и серверов, и многое другое) Услуги, в зависимости от объема, оказываются как с использованием собственной производственной базы, так и с привлечением компаниям, проверенным многолетним опытом совместной работы (без дополнительных наценок !).

Для ввода чисел пользователем в программе использовался компонент spinedit. Он позволят хранить числа в integerl. Следовательно отпадает необходимость в переводе типов ( StrToInt ). Свойство spinedit.value хранит числовые значения. Факториал я считал по формуле: i:=2; j:=1; repeat j:=J*i; inc(i); until i=spinedit3.Value+1; Целесообразнее было вынести этот блок в отдельную функцию, чтобы вызывать ее с необходимыми параметрами (в данном случае число из spinedit), т.к. в задании нужно подсчитать 3 факториала. Мне проще было скопировать 3 раза подряд этот код и поправить под каждый факториал, т.к. время поджимало. Программа не должна вызвать у вас никаких затруднений. Мой код предельно прост и понятен.