Сколько бит информации содержится в сообщении размером в четверть килобайта? 1.2032 2.2048 3.250 4.2000 5.256 с решением !

1байт = 8 бит. найдем сначала кол-во байт и умножим на 8. 1 кб = 2^10 байт = 1024. 1/4 кб = 1024/4=256 байт. кол-во бит = 256*8=2048 бит

у вас дано несколько чисел введённых с клавиаатуры или генерацией(random)вы проверяете 1)трёхзначность (a> 99) and (a< 1000)

                                                          2)оканчивается ли трёхзначное число тройкой (a mod 10=3)

if (a> 99) and (a< 1000) and (a mod 10=3)

 

естественно проверка делается в цикле.

 

нужно было указать в условии как вводятся числа (a), сколько их

или числа вводятся в массив

1) var sum, number, n: integer; begin   sum : = 0;   number : = 1;   write('введите n: ');   readln(n);   while (number < = n) do   begin     sum : = sum + number;     number : = number + 2;   end;   write('сумма равна ', sum); end. 2) var prod, number, n: integer; begin   prod: = 1;   number : = 3;   write('введите n:   ');   readln(n);   while (number < = n) do   begin     prod : = prod *  number;     number : = number + 3;   end;   write('произведение равно  ', prod); end. 3) var number, n: integer; begin   number : = 1;   write('введите n:   ');   readln(n);   writeln('таблица: ');   while (number < = n) do   begin     writeln(number: 5, number*number: 5, number*number*number: 5);     number : = number + 1;   end; end.