var simple: List<integer> := new List<integer>; i, n, p: integer; m: longint;
begin read(n); for i := 2 to n do begin m := 1; foreach s: integer in simple do m := m * i mod s; if m > 0 then begin simple.Add(i); // write(i, ' '); end; end; writeln();
foreach s: integer in simple do begin if Math.Pow(2, s) - 1 <= longint.MaxValue then begin m := round(Math.Pow(2, s) - 1); if (m <= n) and simple.Contains(m) then write(m, ' '); end; end; end.
1. var a: array [1..11] of integer; i, min, imin: integer; begin for i:=1 to 10 do read(a[i]); min:=32000;imin:=0; for i:=1 to 10 do if (a[i] mod 2) = 0 then if a[i]<min then begin min:=a[i]; imin:=i; end; write('Минимальное:', min, ' Индекс:', imin); end.
2. function stepen(c, s: integer):integer; var j, rez: integer; begin rez:=c; for j:=1 to (s-1) do rez:=rez*c; stepen:=rez; end; var a: array [1..11] of integer; i, min, imin: integer; begin for i:=1 to 10 do a[i]:=stepen(2, i); for i:=1 to 10 do write(a[i], ' '); end.
Если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.
16 символов
Объяснение:
128 байт * 8 =1 024 бит
i=I/k=1024 бит /256 символов = 4 бит
N=
=16 символов