const a=1; d=1; n=100;
var s:real;
begin
s:=(2*a+d*(n-1))/2*n;
writeln ('Сумма числер равна ',s);
end.
I) компьютерная
II) Локальной сети
III) Топология Звезда:
1)Выход из строя одной рабочей станции не отражается на работе всей сети целом.
2) Лёгкий поиск неисправностей и обрывов в сети.
3) Высокая производительность сети.
4)Гибкие возможности администрирования.
Var n,f,i:integer;
begin
n:=10;
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Результат:
10! = 3628800
<span>1)ОДНОРОДНЫЙ ПО СМЫСЛУ БЛОК ДАННЫХ,ХРАНЯЩИЙСЯ ВО ВНЕШНЕЙ ПАМЯТИ И ИМЕЮЩИЙ ИМЯ</span>
Program n1;
Uses CRT;
Const n=5; m=7;
Var A: array[1..n,1..n] of integer;
i,j,s,k: integer;
begin
clrscr;
randomize;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
s:=s+a[i,j];
k:=k+1;
end;
writeln;
end;
Writeln('srednee arifmeticheskoe =',s/k:4:4);
readln
end.