7. сколько кбайт соответствует информационному сообщению объемом 12288 бит? 8. сколько кбайт соответствует информационному сообщению объемом 4096 бит? 9. сколько кбайт соответствует информационному сообщению объемом 512 мбайт? 10. сколько мбайт соответствует информационному сообщению объемом 2 гбайта?

program xxx;

  var a, b, s, i : integer;

begin

  write('введите а-');

  readln (a);

  write('введите b-');

  readln (b);

  s: =0;   for i: = a to b do        s: =s + i * sqr(i);

    writeln ('сумма кубов =', s)

end.

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.