Ответ на ребус - информация
1)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
repeat
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
until i>=n;
writeln('s = ',s);
end.
2)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
while i<n do
begin
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
3)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1;
for i:=2 to n do
begin
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
Пример:
5
s = 6.875000000000000e-01
4 Кб = 4*1024*8 = 32768 бита
433*433 = 187489 пикселей
187489/32768 ≈ 5 бит на 1 пискель2
2^5 = 32
Ответ: 32 цвета
#include <iostream>#include <conio.h>
using namespace std;
int main(){setlocale(LC_ALL,"Russian"); cout << "Эта программа будет создавать массив и выводить каждый нечётный элемент." << endl; int si_ze,massiv[200]; cin >> si_ze; for (int i = 0; i < si_ze;i++){ cin >> massiv[i]; } for (int i = 0;i < si_ze;i++){ if (massiv[i]%2 == 1) cout << i << ' '; }
return 0;}