Долговременная память сохраняет только важную информацию. Именно в этом
хранилище находится все, что вы знаете о мире. Где бы вы не находились,
эти знания всегда остаются с вами. Специалисты утверждают, что
долговременная память наделена безграничным объемом. Так, чем больше
знает человек, тем легче он начинает запоминать новые данные.
Долговременную память нельзя заполнить до отказа.
Пакет прикладных программ – это комплекс программ, предназначенный для решения определённого класса задач по некоторой тематике.
ППП общего назначения - универсальные программные продукты, предназначенные для автоматизации разработки и эксплуатации функциональных задач пользователя.
К этому классу ППП относятся:
редакторы: текстовые (Word, WordPad) и графические (CorelDraw,PhotoShop);
электронные таблицы (Excel, Lotus 1-2-3);
системы управления базами данных (Access, Oracle);
средства подготовки презентаций (PowerPoint);
интегрированные ППП;
системы автоматизации проектирования (AutoCad);
оболочки экспертных систем и систем искусственного интеллекта и др.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger('N=');
SeqGen(N, 11, t -> t + 11).Aggregate(BigInteger(1), (i, j)-> i * j).Println
end.
<h3>N= 21</h3><h3>378085741958289664546285217171284131840000</h3>
Var N1:array[1..10] of integer;
N2:array[1..15] of integer;
R1:array[1..10] of integer;
R2:array[1..15] of integer;
min1, min2, max1, max2, i:integer;
R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
if R1[i]<min1 then
begin
min1:=R1[i];
R1min:=i;
end else
begin
if R1[i]>max1 then
begin
max1:=R1[i];
R1max:=i;
end;
end;
for i:=1 to 15 do
if R2[i]<min2 then
begin
min2:=R2[i];
R2min:=i;
end else
begin
if R2[i]>max2 then
begin
max2:=R2[i];
R2max:=i;
end;
end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
end.
