Задумайте любое трехзначное число, не превышающее 300. запишите шестизначное число, в записи которого дважды повторено исходное число.полученное шестизначные число разделите на 13 , результат разделительной на 11 и на 7. у вас должно получиться исходное число. почему получается такой результат ?

Деление любого числа на 13, затем на 11, затем на 7 равносильно делению на 1001  (13*11*7). любое трехзначное число при умножении на 1001 даст это же число записанное два раза, т.к. умножение на 1001 можно записать как: abc*1001=abc*1000+abc*1=abc000+abc=abcabc (где a,b,c - любые цифры) отсюда любое шестизначное число, состоящее из двух одинаковых трехзначных, при делении на 1001 даст трехзначное, из которого оно и состоит. 

желательно в уточнять тип массива (целый, вещественный ) и споособ его генерации(ввод с клавиатуры, генератор случайных чисел).

 

в данной программе массив получен с   генератора случайных чисел 

 

   

program raznost;

uses crt;

const n=100; {максимальный размер массива}

var a: array[1..n] of   integer;  

 

        i,m: integer;

        k,s,rez: longint;

begin

      clrscr;

      write('введите к: ');

      readln(k);

      write('введите размер массива < 100: ');

      readln(m);

 

 

      randomize;  

      write('исходный массив: ')

 

    s: =0;

      for i: =1 to m do

          begin

                a[i]: =random(50)+25;    

 

                write(i: 3);    

 

                if   (i mod 2)< > 0 then s: =s+a[i];

 

            end;

      writeln;

      rez: =k-s;        

      writeln('разность между k и суммой всех элементов массива с нечетными индексами=',rez);

      readkey;

end. 

 

 

Var a, n: longint; v1, v2, v3: byte; s: byte; begin readln(a); n : = a; v1 : = 0; v2 : = 0; v3 : = 0; while (n < > 0) do begin s : = n mod 10; n : = n div 10; if (s = 3) then v1 : = 1; if (s = 2) then v2 : = 1; if (s = 5) then v3 : = 1; end; if (v1 = 1) then writeln('в этом числе есть цифра 3') else writeln('в этом числе нет цифры 3'); if (v2 = 1) and (v3 = 1)  then writeln('в этом числе есть цифры 2 и 5') else writeln('в этом числе  нет одновременно цифр 2 и 5'); end.