I = k * i - объём памяти
k - кол-во пикселей; i - кол-во памяти на один пиксель
N=2^i - кол-во цветов. Следовательно i = 1 бит;
k = 720*360 = 259 200 px.
I = 259 200 * 1 = 259 200 бит = 32 400 байт
X=125
a= 125 div 100= 1
b= 125 mod 100 div 10= 25 div 10 = 2
c= 125 mod 10 =5
s= 1+2+5=8
x= 248
a= 248 div 100= 2
b= 248 mod 100 div 10= 48 div 10 = 4
c= 248 mod 10 =8
s= 2+4+8=14
x=789
a= 789 div 100= 7
b= 789 mod 100 div 10= 89 div 10 = 8
c= 789 mod 10 =9
s= 7+8+9=24
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('Min. сумма соседних элементов: ',
a.Pairwise.Select(x->x[0]+x[1]).Min)
end.
<u><em>Тестовое решение</em></u>
n= 15
72 22 71 77 41 89 73 54 29 47 47 46 98 82 15
Min. сумма соседних элементов: 76
3 ... т.к. высказывание - это мысль .. котороя может быть правдой или ложью
1)
var n,min:integer;
begin
write('n = ');
readln(n);
min:=9;
while n>0 do
begin
if n mod 10 < min then min:=n mod 10;
n:=n div 10;
end;
writeln('min = ',min);
end.
Пример:
n = 24815
min = 1
2)
var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
begin
if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
n:=n div 10;
end;
if k1>k2 then writeln('кол-во четных больше чем нечетных цифр')
else if k2>k1 then writeln('кол-во нечетных больше чем четных цифр')
else writeln('количество четных равно количеству нечетных');
end.
Пример:
n = 1234
количество четных равно количеству нечетных
