Синформатикой: звучит так: 1.нарисуй в окне цепочку цифр, для которой истинно утверждение: вторая и третья цифры в этой цепочке разные. 2. нарисуй в окне цепочку цифр, для которой ложно утверждение: вторая и третья цифры в этой цепочке разные

1.1 2 3 4 5 6 7 8 9 0

2.1 2 2 3 4 5 6 7 8 9 0

Const       n = 40; var       sum, k, i: integer;       a: array[1..n] of integer; begin       randomize;             writeln('исходный массив: ');       for i : = 1 to n do       begin               a[i] : = random(1000) - 500;               write(a[i], ' ');                             if (a[i] < = -10) and (a[i] > = -99) then               begin                       k : = k + 1;                       sum : = sum + a[i];               end;       end;       writeln;             writeln(sum / k); end.

Const a=0; b=10; var x,y,h: real; n,i: integer; begin h: =1; n: =round((b-a)/h); x: =a-h; for i: =0 to n do   begin   x: =x+h;   y: =sin(x)/cos(x);   writeln(x: 4: 1,'   ',y: 6: 3);   end; end. результат:   0.0   0.000   1.0   1.557   2.0   -2.185   3.0   -0.143   4.0   1.158   5.0   -3.381   6.0   -0.291   7.0   0.871   8.0   -6.800   9.0   -0.452 10.0   0.648