Ребят, тут немного, много времени не займёт, мне очень нудно Отметьте, какие сравнение верны и неверны.

А) 3 байта > 24 бита
Б) 1536 бит < 1,5 Кбайта
В) 100 т < 1 Кбайт
Г) 8192 Бит = 1 Кбайт
Д) 200 байт < 0,25 Кбайт

2)установите верное соотношение:

( выбирать из: 0,00004 Мб; 85,5 Кб; 91226112 байт; 0,0005 мб; 4000 бит; 58720256 бит.)

А) 7 МБ =
Б) 87 Гб =
В) 46 байт =
Г) 500 байт =
Д) 7000000 бит =
Е) 0,5 Кб =

3) Считая, что каждый символ кодируется одним байтом, оцените информационный объём следующего предложения: "Мой дядя самых честных правил".

Выберите один ответ:

А) 32 байта
Б) 31 бит
В) 31 байт
Г) 27 бит

4) Мощность алфавита равна 64. Сколько Кбайт памяти потребуется, чтобы сохранить 128 страниц текста, содержащего в среднем 256 символов на каждой странице?

Выберите один ответ:

А) 26 кбайт
Б) 32768 кбайт
В) 196608 кбайт
Г) 24 кбайт

5) В коробке лежат 64 шара. Сколько бит информации несёт сообщение о том, что достали жёлтый шар.
ответ запишите в виде числа бит: ...

1)

var a,b,c,d,s,p:real;
begin
cls;
writeln('введите стороны треугольника:');
read(a,b,c);
p:=(a+b+c)/2;
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
write('Площадь треугольника S=',s);
end.

2)

var a,b,c,d,s,v:real;
begin
cls;
write('Введите 3 ребра=');
read(a,b,c);
V:=a*b*c;
S:=2*(a*b+b*c+a*c);
d:=(a+b+c)*2;
writeln('Прямоугольный параллелепипед:');
writeln('Обьём:',V);
writeln('Площадь:',S);
writeln('Сумма рёбер:',d);
end.

3)

var a,b,c,d,P:real;
begin
cls;
writeln('введите сторону и 2 угла ромба');
read(a,b,c);
if b>c then
P:=a*Sqrt(2+2*Cos(b))
else
d:=a*Sqrt(2+2*Cos(c));
writeln('Большая диагональ ромба D=',P);
writeln('Меньшая диагональ ромба d=',d);
end.

Блок-схемы - во вложениях

1.

Program Irina09Gross1;
const n=10;
var a,b,c,p,s: real;
  begin
  writeln('*** Alphaues is thinking... ***');
  writeln('***          OK!            ***');
  writeln();
  writeln('Введите стороны треугольника');
    write('Введите а');
    readln(a);
    write('Введите b');
    readln(b);
    write('Введите c');
    readln(c);
  p:=(a+b+C)/2;
  S := sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('Площадь треугольника равна ',s);
end.

2.

Program Irina09Gross2;
const n=10;
var a,b,h,v,s,r: real;
  begin
  writeln('*** Alphaues is thinking... ***');
  writeln('***          OK!            ***');
  writeln();
    write('Введите длину основания ');
    readln(a);
    write('Введите ширину основания ');
    readln(b);
    write('Введите высоту параллелепипеда ');
    readln(h);
  s := 2*(a*b+b*h+h*a);
  v := a*b*h;
  r := 4*(a+b+h);
  writeln('Объём равен ',v);
  writeln('Площадь полной поверхности равна ',s);
  writeln('Сумма рёбер равна ',r);
end.