60.Жесткий диск 61.Диск 62 .память этого человека
N-?
К=2*32*30=1920
I=720байт=720*8=5760битов
I=K*i
i=5760:1920=3бита
N=2^i
N=2^3=8
Вот как то так :з
//Вроде бы знакомый аватар...
//Соглашусь с предыдущим оратором, решается в 3 строки без циклов
//Pascal ABC.NET v3.0 сборка 1111
Const
n=10;
var
ar:array[1..n] of integer;
sum,i:integer;
begin
randomize;
for i:=1 to 10 do
begin;
ar[i]:=random(50,100);
sum+=ar[i];
write(ar[i]:4);
end;
writeln;
write('Sum=',sum);
end.
Const
n=15;
var
a:array[1..n] of integer;
i,t:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to n do begin
a[i]:=Random(50)+10;
Write(a[i]:3)
end;
Writeln;
for i:=1 to n div 2 do
begin t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t end;
Writeln('Результирующий массив');
for i:=1 to n do Write(a[i]:3);
Writeln;
end.
Пример
Исходный массив
25 19 47 34 22 54 52 11 40 13 25 47 29 50 58
Результирующий массив
58 50 29 47 25 13 40 11 52 54 22 34 47 19 25
private int Min(int a, int b, int c) => Math.Min(a, Math.Min(b, c));
private char Min(char a, char b, char c) {
a = a < b ? a : b;
a = a < c ? a : c;
return a;
}
private double Min(double a, double b, double c, double d) => Math.Min(a, Math.Min(b, Math.Min(c, d)));