Var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
readln(a[i]);
for i:=1 to 15 do
if a[i]<=i then
write(a[i]);
<span>end.</span>
Сумма от i=1 до n
выражения (X i-ое / (1 + модуль Y i-ое ))
Вот как расшифровывается знак суммы:
(X1/(1+|Y1|)) + (X2/(1+|Y2|))+ ... (Xn/(1+|Yn|))
А знак модуля возвращает абсолютную величину числа, то есть если число положительное возвращает само число, если оно отрицательное - возвращает его без знака минус.
|Yn|=|-Yn| >=0
|5| = 5
|-5| = 5
Ответ:
149₁₆ = 511₈
14B₁₆ = 513₈
178₁₆ = 570₈
17C₁₆ = 574₈
15A₁₆ = 532₈
Объяснение:
149₁₆ = 9*16⁰ + 4*16¹ + 1*16² = 329₁₀
329₁₀ = 1*8⁰ + 1*8¹ + 5*8² = 511₈
14B₁₆ = B*16⁰ + 4*16¹ + 1*16² = 331₁₀
331₁₀ = 3*8⁰ + 1*8¹ + 5*8² = 513₈
178₁₆ = 8*16⁰ + 7*16¹ + 1*16² = 376₁₀
376₁₀ = 0*8⁰ + 7*8¹ + 5*8² = 570₈
17C₁₆ = C*16⁰ + 7*16¹ + 1*16² = 380₁₀
380₁₀ = 4*8⁰ + 7*8¹ + 5*8² = 574₈
15A₁₆ = A*16⁰ + 5*16¹ + 1*16² = 346₁₀
346₁₀ = 2*8⁰ + 3*8¹ + 5*8² = 532₈
1)program gt;
var a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
n,m,s,i,j:integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
b[j]:=s;
end;
for i:=1 to m do
write(b[i],' ');
end.
2)
program gt;
var a:array[1..100,1..100]of integer;
n,m,s,i,j:integer;
begin
readln(n,m);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
if(i mod 2=0)then a[i,j]:=0 else a[i,j]:=random(100);
write(a[i,j],' ');
writeln;
end;
end.