Складіть проект, у якому виконавець, поки до нього не доторкнеться вказівник миші, буде повторювати такі дії: рухатися вправо, якщо буде
натиснуто клавішу стрілка вправо, або рухатися вліво, якщо буде
натиснуто клавішу стрілка вліво.

//1a

Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
 x2:=i div 10;
   if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
  end;
end.

//1б
Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
   x2:=i div 10;
   if x1+x2+sqr(x1+x2)=i then writeln(i);
  end;
end.

//2
Var
 i,n,a,k1,k2:integer;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(a);
   if a<1985 then k1:=k1+1;
   if a>1990 then k2:=k2+1;
  end;
 writeln('Родившиеся до 1985:',k1);
 writeln('Родившиеся после 1990:',k2);
end.

Всё просто.

Объяснение:

                                                               4

1524 (10) = 5F4 (16)

                                                                    5

а) 1110 (2) + 1011 (2) = 14 (10) + 11 (10) = 25 (10) = 11001 (2);

б) 11010 (2) + 11101 (2) = 26 (10) + 29 (10) = 55 (10) = 110111 (2);

в) 1101 (2) * 101 (2) = 13 (10) + 5 (10) = 18 (10) = 10010 (2).

                                                                  6

( x & -y )                                  ∨                        ( -x   & y )

 0     0        0                                                      0     0        0                                                      

 0      1        1                                                       0      1        1                                                      

 1       0       1                                                       1       0       1

 0      0       1                                                       0      0       1