PascalABC.NET
uses
System.Collections.Generic;
var
arr: List<<em>single</em>> := new List<<em>single</em>>();
i: integer;
begin
writeln('i':2, 'arr[i]':7, #13, new string('-', 9));
for i := 1 to 10 do
begin
arr.Add(Random(-5, 5));
writeln(i:2, arr[i - 1]:7);
end;
writeln(new string('-', 9));
arr.RemoveAt(3);
for i := 1 to 9 do
writeln(i:2, arr[i - 1]:7);
end.
Ответ:
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₈
Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
И как ответить на это всё ?
Const
n = 5;// количество элем массиваvar
a: array [1..n] of integer;
sum, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i] = i then
sum := sum + a[i];
writeln(sum);
end.