Var a:array[1..10] of integer;
i:integer;
begin
i:=1;
repeat
readln(a[i]);
i:=i+1;
until i>10;
end.
Var n,p,k,i,j:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=2;
for i:=2 to n do
begin
f:=false;
while not f do
begin
p:=p+1;
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
f:=k=0;
end;
end;
writeln(p);
end.
Пример:
n = 25
97
Для задания цвета одного квадратика вышивки требуется log(2)8 = 3 бита.
Для хранения всей вышивки - 45*48*3 = 6480 бит
11010011.
Просто 211 нужно делить на 2, пока остаток не станет меньше 2х. Или проще скачать калькулятор для системы счисления