На вход алгоритма подаётся натуральное число N. Алгоритм строит по нему новое число R следующим образом. 1) Строится двоичная запись числа N.
2) К этой записи дописывается справа бит чётности: 0, если в двоичном коде числа N было чётное число единиц, и 1, если нечётное.
3) К полученному результату дописывается ещё один бит чётности.
Полученная таким образом запись (в ней на два разряда больше, чем в записи исходного числа N) является двоичной записью искомого числа R. Укажите количество исходных чисел N, из которых с этого алгоритма могут быть получены числа R, лежащие в диапазоне 64 ≤ R < 72.

137

public partial class Form1 : Form{    public Form1()    {        InitializeComponent();        this.Load += Form1_Load;        this.Paint += Form1_Paint;        DoubleBuffered = true;    }     int r = 100;     //радиус    int x0 = 150;   //координата X центра окружности    int y0 = 150;   //координата X центра окружности    float x = 0, y = 0;    double fi = 0.0;    void Form1_Load(object sender, EventArgs e)    {        Timer tmr = new Timer();        tmr.Interval = 30;        tmr.Tick += tmr_Tick;        tmr.Start();    }     void tmr_Tick(object sender, EventArgs e)    {        fi += 0.1;        if (fi > 2 * Math.PI) fi = 0.0;        x = (float)(r * Math.Cos(fi) + x0);        y = (float)(r * Math.Sin(fi) + y0);        Invalidate();    }     void Form1_Paint(object sender, PaintEventArgs e)    {        e.Graphics.FillEllipse(Brushes.Red, x, y, 20, 20);    }}

1.
program pr1;
uses crt;
var n,k,i,t:integer;
begin
clrscr;
write('Введите целое число n=');
readln (n);
for i:=2 to n do begin
t:=0;
for k:=2 to n do
if i mod k=0 then t:=t+1;
if t=1 then write(i:3);
end;
readln;
end.

2.

Program pr2;
Var a, b: Integer;

Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
If b > a Then
Begin
tmp := a;
a := b;
b := tmp;
End;
tmp := a;
While tmp > 0 Do
Begin
Result := tmp;
tmp := tmp - b;
End;
End;

Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('НОД: ', NOD(a, b));
ReadLn;
End.