var
n,s:integer;
begin
repeat
write ('N = ');readln(n);
until (n>=10000) and (n<=32767);
s:=n div 10000 + (n div 1000) mod 10 + n mod 10;
writeln ('Summa: ',s);
readln;
end.
РЕШЕНИЕ
1)
Раскрываем с КОНЦА числа
101101₂= 1+4+8+32 =45% девочек
1011₂ = 1+2+8 =11 чел - мальчики - 55%
11 : 0,55 = 20 чел - в классе - ОТВЕТ
2)
а) 4₁₀ = 100₂ = 2²
б) 4₁₀ = 11₃ = 3⁰ + 3¹
в) 6₁₀ = 11₅ = 5 + 1
г) 9₁₀ = 13₆ = 6+3
д) 45₁₀ = 100 - √45=?
е) 66₁₀ = 110 - ?
ж) 7₁₀ = 7₉ и 12₁₀ = 13₉ = 9+3
з) 36₁₀ = 44₈ = 4*8 + 8 = 32 +4
и) 16₁₀ = 20₈ = 2*8
const g = 5; v = 3;
var a: array[1..g,1..v] of integer;
i,j,maxj,minj,p:integer;
begin
writeln('Массив: ');
for i:=1 to g do
begin
for j:=1 to v do
begin
a[i,j]:=Random(101);
write(a[i,j]:4)
end;
writeln
end;
for i:=1 to g do
begin
maxj:=1;
minj:=1;
for j:=1 to v do
begin
if a[i,j]>a[i,maxj] then maxj:=j;
if a[i,j]<a[i,minj]then minj:=j;
end;
p:=a[i,maxj];
a[i,maxj]:=a[i,minj];
a[i,minj]:=p;
end;
writeln;
writeln('Преобразованный массив: ');
for i:=1 to g do
begin
for j:=1 to v do write(a[i,j]:4);
writeln
end;
end.
16 бит - 2 байта. 2*1240*480=1190400 байт 1190400/1024=1162,5 КБайт
32=2^5
256=2^8 количество бит на цвет уменьшилось на 3, значит в (2^3 = 8) уменьшился объем в оперативке
For i:=1 to n do begin
if not(a[i] mod 3=0) or (a[i]=0) then
a[i]:=1
else
k:=a[i];
end;
for i:=1 to n do
if (a[i]<k) and (a[i]<>1) then
k:=a[i];
j:=0;
for i:=1 to n do
if a[i]=k then
j:=j+1;
end;
writeln(j);
end.
