Блок-схема - в прилагаемом файле.
Программа:
var n,i:integer; p:real;
begin
write('n = '); readln(n);
p:=1;
for i:=1 to n do p:=p*i;
writeln('p = ',p);
end.
Пример:
n = 10
p = 3628800
1.
Для кодирования одного из 64 символов требуется log(2)64 = 6 бит.
Объем информации в первом письме = 50*6 = 300 бит.
Для кодирования одного из 32 символов требуется log(2)32 = 5 бит.
Объем информации во втором письме = 40*5 = 200 бит.
Ответ: 300 бит > 200 бит
2.
1/2 Кбайта = 1024/2 байт = 512 байт = 512*8 бит
Объем одного символа = 512*8 / 512 = 8 бит.
Мощность алфавита = 2^8 = 256
4.
Количество символов в книге = 1500*40*60
Если для кодирования одного символа используется 8 бит (=1 байт), то количество информации в книге = 1500*40*60*1 байт = 1500*40*60/1024 Кбайт = 3515,625 Кбайт = 3515,625/1024 Мбайт ≈ 3,5 Мбайт
13.
Для кодирования одного из 256 символов требуется log(2)256 = 8 бит = 1 байт.
1/32 Мбайт = 1024/32 Кбайт = 32 Кбайт = 32*1024 байт = 32768 байт
Количество символов в сообщении = 32768/1 = 32768
var n,i:integer;
Begin
read(n);
for i:= 2 to n-1 do
if n mod i = 0 then writeln('No');
End.
var n,i:integer;
s:string;
Begin
read(s);
for i:= 1 to length(s) do
if s[i]="a" then n:=n+1;
writeln(n);
End.
Создаем матрицу, оценки вводятся с клавиатуры и считается количество оценок, которые <=2 в каждой строке. Последний столбец показывает количество неуд. по каждому предмету. в каждой строке 6 студентов, в конце каждой строки количество неуд по этому предмету
DIM a(4,6)
PRINT "input ocenki"
FOR i = 1 TO 4
FOR j = 1 TO 6
INPUT a(i, j)
NEXT j
NEXT i
FOR i = 1 TO 4
k = 0
FOR j = 1 TO 6
PRINT a(i, j);
IF a(i, j) <= 2 THEN k = k + 1
NEXT j
PRINT k
NEXT i<span>
</span>
9 символов * на 2 байта (или 16 бит)=18 байт
