Вкаком году ( 40- гг xix или 1969 году ) в россии построена первая телеграфная линия ? !

40-е гг.xix

Var   a,b,c,d: integer; begin   write('введите целое число: '); readln(a);   c : = 0;   while (a < > 0)and(c < 1) do   begin       c : = 0;       b : = a mod 10;       a : = a div 10;       d : = a;       while d < > 0 do       begin           if d mod 10 = b then               c : = 1;           d : = d div 10;       end;   end;   if (c = 1) then writeln('в данном числе есть одинаковые цифры')   else writeln('в данном числе нет одинаковых цифр '); end.

Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! function subarray(subarr,arr: array of integer): integer; begin   var ns: =subarr.length;   var p1: =arr.length-ns; // поиск на [0..p1]   var ii: =arr[: p1+1].indexesof(t-> t=subarr[0]);   result: =-1;   foreach var i in ii do       if arr[i: i+ns].zip(subarr,(a,b)-> a=b).all(t-> t) then begin           result: =i;           exit           end end; begin   var a: =readarrinteger('введите элементы: ',readinteger('n='));   var b: =readarrinteger('введите элементы: ',readinteger('n='));   var p: integer;   if a.length< b.length then begin       p: =subarray(a,b);       if p> -1 then writeln('первый массив является подмассивом с позиции ',p+1)       else writeln('подмассив не обнаружен')       end   else begin       p: =subarray(b,a);       if p> -1 then writeln('второй массив является подмассивом с позиции ',p+1)       else writeln('подмассив не обнаружен')       end end. примеры n= 4 введите элементы: 1 2 3 4 n= 11 введите элементы: 0 1 2 3 1 4 1 2 3 4 5 первый массив является подмассивом с позиции 7 n= 4 введите элементы: 1 2 3 5 n= 11 введите элементы: 0 1 2 3 1 4 1 2 3 4 5 подмассив не обнаружен