Перевести числа из двоичной системы счисленния в заданную а) 34(10)степень-в степень с 2 ? б)234(10)- 8? в)1268(10)-16? пеевести из из двоичной системы счисленния в заданную а)10110101011(2)-8? б)10010110101001(2)-8? в)10001011010011(2)-16? г)100101101010010(2)-16? перевести числа из заданной системы счисление в двоичную а)25463(8) б)24501( 8) в)125fe20(16) г)2155bo(16)

A)  100010 б) 352 в) 4f4 а) 2653 б)  22651 в) 22d3 г)  4b52 а) 10101100110011 б) 10100101000001  в) 1001001011111111000100000 г)  1000010101010110110000

ответ:

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

32

33

34

35

36

37

38

39

40

41

uses crt;

const nmax=100;

type mas=array[1..nmax] of real;

var n: byte;

procedure vvod(var a: mas; c: char);

var i: byte;

begin

writeln('исходный массив ',c);

for i: =1 to n do

begin

a[i]: =-5+15*random;

write(a[i]: 5: 1)

end;

writeln

end;

procedure poloz(var a: mas; k: real; c: char);

var i: byte;

begin

writeln('измененный массив ',c);

for i: =1 to n do

begin

if a[i]> 0 then a[i]: =a[i]+k;

write(a[i]: 5: 1)

end;

writeln

end;

var a,b: mas;

k: real;

begin

randomize;

repeat

write('размер массивов от 2 до ',nmax,' n=');

readln(n);

until n in [2..nmax];

write('введите число для изменения положительных k=');

readln(k);

vvod(a,'a');

poloz(a,-k,'a');

vvod(b,'b');

poloz(b,k,'b');

end.

pascalabc.net

// 1

begin

  var p: int64 : = 1;

  for var i : = 2 to 20 do

    p *= i;

  println(p)

end.

//2

begin

  var (k, d) : = (0, 1);

  while d < > 0 do

  begin

    read(d);

    if d < > 0 then

      k += 1

  end;

  println(k);

end.

// 3

begin

  var (s, d) : = (0, 1);

  while d < > 0 do

  begin

    read(d);

    s += d

  end;

  println(s);

end.