1)ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом. 2) ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры (не обязательно стоящие рядом

1.  var a, tmp: integer; var b: boolean; begin b: =false; readln(a); tmp : = a mod 10; a: = a div 10; while a > 0 do begin if tmp = a mod 10 then b : = true else tmp : = a mod 10; a : = a div 10; end; writeln(b); end. 2.var a, i: integer; var t: array[0..9] of integer; var b: boolean; begin b: =false; readln(a); while a > 0 do begin inc(t[a mod 10]); a : = a div 10; end; for i: =0 to 9 do if t[i] > 1 then b : = true; writeln(b); end.

1-ая program one; var n, i : integer; a : array [1..1010] of integer; begin read(n); for i : = 1 to n do begin read(a[i]); end; for i : = 1 to n do begin write(a[i], ' '); end; writeln(); for i : = n downto 1 do begin write(a[i], ' '); end; end. 2-ая program two; var n, i, k: integer; a : array [1..1010] of integer; begin read(n); k : = 1; while (n > 0) do begin a[k] : = n mod 10; k : = k + 1; n : = n div 10; end; for i : = k - 1 downto 1 do write (a[i], ' '); end. 3-я program two; var k, start, endd, i: integer; a : array [1..1010] of integer; begin read (start, endd); k : = 1; for i : = start to endd do begin         if (i mod 2 = 0) then         begin                   a[k] : = i;                   k : = k + 1;         end; end; for i : = k - 1 downto 1 do       write (a[i], ' '); end.

Var   a: array [1..12] of integer;   i: integer; begin   writeln('начальный вид массива: ');   for i : = 1 to 12 do     begin     a[i] : = -20 + random(41);     writeln('a[', i: 2, ']=', a[i]: 3);   end;   writeln('конечный вид массива: ');   for i : = 1 to 12 do     begin     if a[i] < 0 then a[i] : = -1;     writeln('a[', i: 2, ']=', a[i]: 3);   end;   readln end.