Var n,s,i:integer;
begin
s:=1;
writeln('Введите число');
readln(n);
for i:=1 to n do
begin
if (i mod 2 =0) then s:=s*i;
end;
writeln(s);
<span>end.</span>
A) 143,511(10) = 1*10^2+4*10^1+3*10^0+5*10^-1+1*10^-2+1*10^-3
б) 143511(8) = 1*8^5+4*8^4+3*8^3+5*8^2+1*8^1+1*8^0
в) 143511(16) = 1*16^5+4*16^4+3*16^3+5*16^2+1*16^1+1*16^0
г) 1435,11(8) = 1*8^3+4*8^2+3*8^1+5*8^0+1*8^-1+1*8^-2
Const n=4;
var
a:array[1..n,1..n] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n div 2 do
for j:=i to n-i do
begin
b:=a[i,j];
a[i,j]:=a[n-j+1,i];
a[n-j+1,i]:=a[n-i+1,n-j+1];
a[n-i+1,n-j+1]:=a[j,n-i+1];
a[j,n-i+1]:=b;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
57 32 69 17
87 33 85 22
89 80 59 13
60 93 96 56
Полученный массив:
60 89 87 57
93 80 33 32
96 59 85 69
56 13 22 17
Диск, блокнот, книга, дискета, видеокассета и аудио кассета
Используя закон склеивания получаем (AvC)^(Av-C)^(-BvC) = A^(-BvC)
P.S. (AvC)^(Av-C)=A