Информатика. пәнінен​

хотелось бы напомнить, что с=12, f=15, а=10.

имеем:

20с7f_16 = 2·16⁴ + 0·16³ + 12·16² + 7·16¹ + 15·16⁰ = 2·65536 + 12·256 + 7·16 + 15 = 131072 + 3072 + 112 + 15 = 134271_10(f3ao6/4)_16 = (15·16⁴ + 3·16³ + 10·16² + 0·16¹ + 6·16⁰)/4 = (15·65536 + 3·4096 + 10·256 + 6)/4 = (983040 + 12288 + 2560 + 6)/4 = 997894/4 = 249473,5 _10

а)сумм(a5: b7)

б)срзнач(c4: c7)

qbasic не знаю, знаю только вижуал бэйсик

for i = 1 to 10

  a(i) = i

next i

for i = 1 to 5

  b = a(10+1-i)

  a(10+1-i) = a(i)

  a(i) = b

next i

s = 0;

for i = a to b

  if (i mod 2 =1) and (i mod 3 = 0) then

          s = s + 1

  end if

next i

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.