Var A:array[1..10000,1..10000] of integer; i,j,N:integer; S,P:real; Begin Randomize; P:=1; Write('N = ');ReadLn(N); For i:= 1 to N do Begin For j:= 1 to N do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' ') End; WriteLn End; j:=1; Repeat S:=0; For i:= 1 to N do S:=S+A[i,j]; P:=P*S; j:=j+2; Until j>N; WriteLn('P = ',P); End.
1.Необходимо немедленно вызвать пожарную охрану по телефону "01", сообщив свой точный адрес, объект пожара и встретить пожарную охрану. Детям - если рядом есть взрослые, сразу позвать их на 2.Если горение только началось, вы его легко затушите водой, накроете толстым одеялом, покрывалом, забросаете песком, землей; 3. Ни в коем случае не тушить водой горящие электропроводку и электроприборы, находящиеся под напряжением - это опасно для жизни; 4. Если вы видите, что не сможете справиться с огнем, и пожар принимает угрожающие размеры покиньте помещение; 5. Никогда не прячьтесь в задымленном помещении в укромные места. И помните, что пожар легче предупредить, чем погасить, и что маленькая спичка может обернуться большой бедой!
begin
var n := ReadInteger('n =');
if n <= 1 then 1.Print
else
begin
var (s, i, f) := (BigInteger(1), 1, Biginteger(1));
repeat
i += 1;
f *= i;
s += f
until i = n;
s.Print
end
end.
Примерn = 100
94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313