Определить, сколько в массиве подряд идущих пар элементов с одинаковым значением.

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=5;

Var
 ar:array[1..n] of real;
 i,k:integer;
begin
 randomize;
  writeln('Array:');
   for i:=1 to n do
    begin
     ar[i]:=random(3);
     write(ar[i]:6);
    end;
  for i:=1 to n-1 do
  if ar[i]=ar[i+1] then k:=k+1;
  writeln;
  writeln('Res=',k);
end.

23 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 #include < iostream> #include < cmath> using namespace std; int main() { int a=0, n, r; cout < < "enter integer n: "; cin> > n; do     {           r = n % 10;     if ( r==3 ) {           cout < < "yes";     a=1;       n=0;     }     n=n/10;         }     while ( n> =1 ); if (a! =1) cout < < "no"; system("pause"); return 0; }

РОПОР и ТОПОР

Объяснение:

Представим что имеем дело с 4-ичной системой счисления { 0 - О, 1 - П, 2 - Р, 3 - Т }. В таком случае вышенаписанный ряд можно представить в такой виде:

1. (00000) = 0 в 10ичной СС

2. П (00001) = 1 в 10ичной СС

3. Р (00002) = 2 в 10ичной СС

4. Т (00003) = 3 в 10ичной СС

5. ОООПО (00010) = 4 в 10ичной СС

...

Исходя из этого, чтобы получить слово, находящееся на 531 месте и 787 месте, достаточно перевести числа 530 и 786 в 4-ичную систему счисления и заменить цифры буквами.

1.

530 / 4 = 132 (2 остаток)

132 / 4 = 33 (0 остаток)

33 / 4 = 8 (1 остаток)

8 / 4 = 2 (0 остаток)

530(10) = 20102 (4)

Замена: РОПОР

2.

786 / 4 = 196 (2 остаток)

196 / 4 = 49 (0 остаток)

49 / 4 = 12 (1 остаток)

12 / 4 = 3 (0 остаток)

786(10) = 30102(4)

Замена: ТОПОР