При записи некоторых условных операторов были допущены ошибки. Установите соответствие между оператором и допущенной в нём ошибкой, укажите верный оператор.
неправильная постановка знака «;»
неправильная запись знака сравнения
отсутствует условие
пропущены операторные скобки
не учтен приоритет операций
ошибок нет
if 9 then k:= k+1;
if a<>b then b:= a;
if a
if x<5 and y>3 then s:= s+1 else s:= s−1;
if x:=9 then k:= k+1;
if a>b then a:=a−b; else b:= b−a;
if a>
440
Определим количество символов в алфавите, которым кодируется пароль. По условию он состоит из 10 букв, 10 цифр ( от 0 до 9 ) и 5 специальных символов. Итого N=10+10+5 = 25
Определим информационный объем одного символа i из формулы N=2^i По условию все символы кодируют одинаковым и минимально возможным количеством бит.
2⁴ ≤ i ≤ 2 ⁵ ⇒ i= 5 бит
Пароль состоит из 10 символов, значит его объем I = i*k= 5*10 = 50 бит, но по условию задачи на хранение как пароля, так и дополнительных сведений отведено одинаковое для каждого пользователя целое количество байт. Ближайшее к 50 число кратное 8 равно 56.
таким образом информационный объем пароля I = 56/8=7 байт
Но так как по условию для хранения пароля выделено в байтах в 1,5 раза меньше памяти, чем для хранения дополнительных сведений, то размеры пароля и дополнительных сведений в соотношении 1 к 1,5
верны при значениях 8 и 12 байт
Итого на одного пользователя выделено 8+12 = 20 байт
Для 22 пользователей: 22*20= 440 байт
Объяснение:
Var
f,s:text;
st,sp:string;
i:integer;
c:char;
begin
assign(s,'text1.txt');
reset(s);
while not Eof(s) do
begin;
readln(s,sp);
st:=st+sp+chr(10)+chr(13);
end;
close(s);
for i:=1 to length(st) div 2 do
begin
c:=st[i];
st[i]:=st[length(st)-i+1];
st[length(st)-i+1]:=c;
end;
assign(f,'text.txt');
rewrite(f);
write(f,st);
close(f);
end.
Текст в файле text1.txt:
Simple text
1And another simple text
2New text
Текст в файле text.txt:
txet weN2
txet elpmis rehtona dnA1
txet elpmiS