1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 uses crt; var n: longint; k: byte; procedure KRZ (c: longint; var kz: byte); var m: set of byte; z: byte; begin if c<0 then c:=c*(-1); if c=0 then kz:=1 else begin m:=[]; kz:=0; while c>=1 do begin if not (c mod 10 in m) then begin inc(kz); m:=m+[c mod 10]; end; c:=c div 10; end; end; end; begin write('n='); readln(n); KRZ (n,k); writeln(k,' различных цифр'); readln; end.
// PascalABC.Net 3.0, сборка 1088 const n=6; var a:array[1..n] of integer; i:integer; begin Randomize; Writeln('*** Исходный массив ***'); for i:=1 to n do begin a[i]:=Random(1001); Write(a[i],' '); end; Writeln; Writeln('*** Результат ***'); Write(a[1],' '); for i:=2 to n-1 do begin if Odd(a[i]) then a[i]:=a[i]+a[n] else a[i]:=a[i]+a[1]; Write(a[i],' '); end; Writeln(a[n]) end.
Объяснение:
Вспышка, молния,звуки музыки,