Const N=30;
var s,b:real;
c,i:integer;
A:array[1..N] of real;
begin
Randomize();
b:=0;
c:=0;
for i:=1 to N do
begin
A[i]:=random(500)+300;
b:=b+A[i];
end;
s:=b/N;
for i:=1 to N do if A[i]<s then c:=c+1;
Writeln('Средняя зарплата: ',s);
Write('Количество сотрудников,получающих зарплату ниже средней: ',c);
End.
1. мощность - 64, начит 1 символ занимает 6 бит. а 200 символов занимают 200*6=1200 бит /8 = 150 байт.
2. 2 в 20 степени
3. мощ. =64 - 1 символ = 7 бит, если 128, то один сивол = 7 бит, значит объём второго в 7/6 раз.
4. 16 кбайт = 2 в 14 степини байт = 2 в 17 степени бит
5. 64 буквы, значит мощность = 64, а значит 1 символ = 6 бит
Прости незнаю как тебе надо оформить) так что как есть)
Таблица Истинности в прилагающем файле
Поясню.
Строка "итог" – это ответ проводника о том, кто туземец.
Значит, если проводник сказал, что туземец правдолюб, проводник всегда правдолюб