begin
SeqGen(10, 6, t -> t + 6).Aggregate(int64(1), (p, q)-> p * q).Println;
SeqGen(25, 7, t -> t + 7).Sum.Println
end.
Результат219419659468800 2275 2) "Школярский вариант"(для тех, у кого учителя в развитии застряли в Паскале образца 1983 года)
var
i, s: integer;
p: real;
begin
p := 1;
for i := 1 to 10 do
p := p * i * 6;
Writeln(p);
s := 0;
for i := 1 to 25 do
s := s + i * 7;
Writeln(s)
end.
3) "Школопетский вариант"(для тех, у кого голова, чтобы "в нее кушать")
var
i, s, n: integer;
p: real;
begin
p := 1;
n := 0;
i := 1;
while n < 10 do
begin
if i mod 6 = 0 then
begin
p := p * i;
Inc(n)
end;
inc(i)
end;
Writeln(p);
s := 0;
n := 0;
i := 1;
while n < 25 do
begin
if i mod 7 = 0 then
begin
s := s + i;
Inc(n)
end;
inc(i)
end;
Writeln(s)
end.
Обслуживающая (служебная, сервисная) программа - системная программа, предназначенная для реализации протокола взаимодействия центрального процессора с внешним устройством (определение порядка пуска и остановки механизмов и процессов), обмена данными и служебной информацией, обнаружения ошибок, сигнализации занятости (готовности и т.д.). Иногда такую программу называют драйвером (водителем) внешнего устройства.
Обслуживающая программа, именуемая также сервисной программой либо утилитой, выполняет задачи, связанные с управлением информационной системой. Например, копирование, восстановление данных, пересылка данных из одного запоминающего устройства (ЗУ) в другое.
Наиболее часто используются утилиты следующего назначения:
· Программы резервирования - создают резервные копии информации на дисках.
· Антивирусные программы - предназначены для предотвращения заражения компьютерным вирусом и ликвидации последствий заражения.
· Программы-упаковщики позволяют за счет применения специальных методов «упаковки», сжимать информацию на дисках, а также объединять копии нескольких файлов в один архивный файл.
· Программы-русификаторы, при другую программу для работы с русскими буквами и текстами (а иногда переводят на русский язык её меню и сообщения).
· Программы удаления приложений. Многие комплексы программ содержат программы установки, но не содержат средств, для удаления этих комплексов. Для корректного удаления комплексов программ используются программы удаления приложений.
· Программы для оптимизации дисков позволяют обеспечить более быстрый доступ к информации на диске за счет оптимизации размещения данных на диске. Эти программы перемещают все участки каждого файла друг к другу, собирают все файлы в начале диска и т.д. Из программ для оптимизации широко используется SpeeDisk.
· Программы ограничения доступа к данным. Во многих случаях нужно защитить компьютер от нежелательных пользователей. Программа Norton DiskLock защищает паролем компьютер, не позволяя загрузить компьютер посторонним, запрашивает пароль после перерыва в работе и т.д.
· Программы для управления памятью обеспечивают более гибкое использование оперативной памяти компьютера.
· Программы-кэши для диска убыстряют доступ к информации на диске путем организации в оперативной памяти кэш-буфера, содержащего наиболее часто используемые участки диска.
Утилиты предоставляют