1) const n = 10; var a : array [1..n] of integer; i : integer; begin randomize; for i := 1 to n do begin a[i] := 22 + random(114); if a[i] > 100 then writeln (a[i]); end; end.
2) var a,n,r,i : integer; begin r := 1; readln (a,n); for i := 1 to n do r := r * a; writeln (r); end.
3)
var n,i,r : integer; begin r := 1; readln (n); for i := 1 to n do r := r *i; writeln (r); end.
4) var i : integer; begin for i := 192 to 223 do write(chr(i); ,' '); end.
5) var i : integer; begin for i := 255 downto 240 do write (chr(i),' '); writeln(); for i := 239 downto 224 do write (chr(i),' '); end.
7) var i : integer; begin for i := 122 downto 97 do writeln(chr(i)); end.
1000=1*2
1001=1*2
1011=1*2
110=1*2
110=1*2
110=1*2
1011=1*2
10=1*2
11=1*2
1011=1*2
100=1*2