с заданиями 2-6 НА РЭШ

2 Расположите числа в порядке возрастания.
61₈ 25₁₆ 34₁₀ 34₈ 3F₁₆
3 Распределите шестнадцатеричные числа на чётные и нечётные.
AD

AC

AF

C0

C8

C9

CA

D7
Чётные
Нечётные

4 Установите соответствие между элементами двух множеств.
347₈

33₈

84₁₀

15₁₀

12₈

53₁₀

1B₁₆

54₁₆

231₁₀

65₈

F₁₆

10₁₀

5 Подчеркните числа, которые лежат между восьмеричными числами 504 и 601.
147₁₆, 324₁₀, 600₈, 326₁₀, 183₁₆

6 Подчеркните числа, которые в десятичной системе счисления будут двузначными.
27₈, С₁₆, 205₈, 11₈, 104₈, С0₁₆

с2н6+cl2=c2h5сl+hcl

с2н6-этан

с2н5cl- хлорэтан или хлористый этил

04₁₀ = 100₂

10₁₀ = 1010₂

1996₁₀ = 11111001100₂

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');

    readln

end.

1)

var

a,b,x,y: real;

begin

readln(a,b);

x: =(a+b)/2;

y: =2*a*b;

if a> b then

begin

a: =y;

b: =x;

end

else

begin

a: =x;

b: =y;

end;

writeln('a=',a: 8: 3);

writeln('b=',b: 8: 3);

end.

2)

var

d,m: integer;

begin

readln(d,m);

if (d< 1) or (d> 31) then writeln ('день введен неверно');

if (m< 1) or (m> 12) then writeln ('месяц введен неверно');

end.

3)

var 

a,b,c: integer;

begin

readln(a,b,c);

if (a> b) and (a> c) then writeln(a);

if (b> a) and (b> c) then writeln(b);

if (c> a) and (c> b) then writeln(c);

end.