var i,y,x,z,w:integer; begin writeln('i=');readln(i); x:=i div 100; y:=i div 10; z:=y mod 10; w:=i mod 10; if (x=z) or (w=z) or (w=x) then writeln(1) else writeln(0); end.
Var i,x:integer; m:array[10..20] of integer; begin randomize; for i:=10 to 20 do m[i]:=random(11)+10; for i:=10 to 20 do write(m[i],' '); writeln; x:=m[10]; m[10]:=m[20]; m[20]:=x; for i:=10 to 20 do write(m[i],' '); writeln; end.
2)
var max,min,i,x:integer; m:array[10..20] of integer; begin min:=10; max:=10; randomize; for i:=10 to 20 do m[i]:=random(100)+1; for i:=10 to 20 do write(m[i],' '); writeln; for i:=10 to 20 do begin if m[i]<m[min] then min:=i; if m[i]>m[max] then max:=i; end; x:=m[min]; m[min]:=m[max]; m[max]:=x; for i:=10 to 20 do write(m[i],' '); writeln; end.
Var max,min,i,x:integer; m:array[10..20] of integer; begin min:=10; max:=10; randomize; for i:=10 to 20 do m[i]:=random(10)+10; for i:=10 to 20 do write(m[i],' '); writeln; for i:=10 to 20 do begin if ( m[i] mod 2) = 0 then m[i]:=m[i]+1;end; for i:=10 to 20 do write(m[i],' '); writeln; end. 2)
var max,min,i,x:integer; m:array[10..20] of integer; begin min:=10; max:=10; randomize; for i:=10 to 20 do m[i]:=random(10)+10; for i:=10 to 20 do write(m[i],' '); writeln; for i:=10 to 20 do begin if ( m[i] mod 2) = 0 then m[i]:=0 else m[i]:=m[i]*3; end; for i:=10 to 20 do write(m[i],' '); writeln; end.
var i,y,x,z,w:integer; begin writeln('i=');readln(i); x:=i div 100; y:=i div 10; z:=y mod 10; w:=i mod 10; if (x=z) or (w=z) or (w=x) then writeln(1) else writeln(0); end.