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

А) 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 p:real; i:integer;
begin
write('цена 1 кг конфет = ');
readln(p);
for i:=1 to 10 do writeln(i,' кг - ',i*p:5:2);
end.

Пример:
цена 1 кг конфет = 125.50
1 кг - 125.50
2 кг - 251.00
3 кг - 376.50
4 кг - 502.00
5 кг - 627.50
6 кг - 753.00
7 кг - 878.50
8 кг - 1004.00
9 кг - 1129.50
10 кг - 1255.00

2.
var a,b,p,i:integer;
begin
write('a, b: ');
readln(a,b);
p:=1;
for i:=a to b do p:=p*i;
writeln('p = ',p);
end.

Пример:
a, b: 5 10
p = 151200

3.
var n,i:integer; s:real;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s:8:3);
end.

Пример:
n =5
s = 2.283

program konfety;   
    var t: real;       
         i: integer;        
begin
    WriteLn('Введите стоимость 1 кг конфет (в рублях): ');
    Read(t);
    for i := 1 to 10 do
        WriteLn('Стоимость ', i, ' кг конфет: ', i*t);
end.

Смысл такой:  - цена 1 кг конфет (вещественный тип real)
- счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла .

WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.

Read(t) дает вам возможность вписать, сколько стоит килограмм конфет, и присваивает переменной  то значение, которое мы ввели.

Далее идет цикл , который по сути вот что делает: 
Для каждого целого i от 1 до 10 сделай вот что:
    Выведи на экран строку 'Стоимость ', потом значение i, потом строку 'кг конфет: ', потом число i умноженное на t

После того, как закончишь обрабатывать все это в последний десятый раз, переходи дальше.

А дальше у нас end (последний end. всегда с точкой).

Конец.