Var k, s : integer; begin s: =0 k: =0 while k < 30 do begin k: =k+3; s: =s+k; end; write(s); end.

Ас чем -то надо?

десятичная - двоичная - восьмеричная - шестнадцатеричная:

11 - 1011 - 13 - b; 25 - 11001 - 31 - 19; 36 - 100100 - 44 - 24; 48 - 100000 - 60 - 30; 51 - 110011 - 63 - 33; 77 - 1001101 - 115 - 4d; 89 - 1011001 - 131 - 59; 101 - 1100101 - 145 - 65; 208 - 11010000 - 320 - d0; 333 - 101001101 - 515 - 14d; 469 - 111010101 - 725 - 1d5; 585 - 1001001001 - 1111 - 249; 699 - 1010111011 - 1273 - 2bb; 700 - 1010111100 - 1274 - 2bc; 888 - 1101111000 - 1570 - 378; 937 - 1110101001 - 1651 - 3a9; 2018 - 11111100010 - 3742 - 7e2.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

program z;

  var   a: array[1..100] of integer;

        i, n, min, max: integer;

begin

  writeln('введите n');

  readln(n);

  writeln('введите ',n,' элементов массива');

  for i: =1 to n do

        read(a[i]);

  min: =a[1];

  max: =a[1];

  for i: =1 to n do

      begin

        if a[i]> max then max: =a[i];

        if a[i]< min then min: =a[i];

      end;

  writeln('min=',min,' max=',max);

  readln

end.