Оператор присваивания
Составной оператор
Оператор безусловного перехода
Условные операторы
Оператор выбора Case
Операторы цикла
Не гативне у нас протьться очі , не корисні ігри , замість того щоб гулять ми сидимо в комп'ютері. Позитивне можна найти любу інформацію
Если задание действительно правильно задано, то вот:
Program Zadacha;
Var K: Integer;
Begin
Write('K = ');
ReadLn(K);
WriteLn('A = ', K * 2);
WriteLn('B = ', K * 3);
WriteLn('C = ', K * 4);
ReadLn;
End. <span>
</span>
1. Количество чисел = 2^5 = 32
2. Если символ кодируется одним байтом, то:
150*40*60*1 байт = 150*40*60/1024 Кбайт = 351,5625 Кбайт
3. Память для одного символа = log(2)8 = 3 бита. Количество информации в сообщении = 13*3 = 39 бит.
4. Количество символов = 3*25*60; 1125 байт = 1125*8 бит;
память для одного символа = 1125*8/(3*25*60) = 2 бита.
Количество символов в алфавите = 2^2 = 4
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
const
m = 99;
var
n,i, j: integer;
A,: Array[1..m] of integer;
begin
Randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
repeat
j := Random(n) + 1
until A[j] = 0;
A[j] := i;
end;
for i := 1 to n do
write(A[i]:3);
writeln;
end.