Напишите программу, которая выводит символы с от n до м (в три столбца) напишите фрагмент , в котором будет определяться символ по своему коду напишите фрагмент , в которой будет определяться код символа
Очень сильно зависит от контекста. допустим, вы знали, что какая-то девочка должна была выйти, а вышла именно девочка в желтом. Тогда, так как могла выйти любая из 8-ми, а вышла именно в желтом, сообщение содержит 3 бита информации. Если же выйти могло любое кол-во девочек, а вышла именно одна, да еще и с желтым платьем, то сообщение содержит 8 бит информации. Теперь поясню: тут вопрос "какое кол-во информации" равнозначен вопросу "Сколько бит мне нужно, чтобы закодировать все комбинации". Так, чтобы закодировать 8 цветов нужно всего 3 бита, чтобы закодировать группу девочек, нужно 8 бит (каждый бит соответствует девочке, бит is set означает, что она вышла, бит not set - что она не вышла)
Var ar,ar2:array[1..10] of integer; i:integer; begin randomize; writeln('First array:'); for i:=1 to 10 do begin; ar[i]:=random(10)-3; write(ar[i]:4); if ar[i]=0 then ar2[i]:=0; end; writeln; writeln('1-st Final array:'); for i:=1 to 10 do begin; write(ar2[i]:4); if ar[i]<0 then ar2[i]:=ar[i]; end; writeln; writeln('2-st Final array:'); for i:=1 to 10 do begin; write(ar2[i]:4); if ar[i]>0 then ar2[i]:=ar[i]; end; writeln; writeln('3-st Final array:'); for i:=1 to 10 do write(ar2[i]:4); end.
var n,m,i,k:integer; c:char;
begin
// 1
write('n, m: ');
readln(n,m);
k:=0;
for i:=n to m do
begin
write(i,' - ',chr(i),' ');
k:=k+1;
if k mod 3=0 then writeln;
end;
// 2
write('n: ');
readln(n);
writeln(n,' ',chr(n));
// 3
write('c: ');
readln(c);
writeln(c,' ',ord(c));
end.
Пример:
n, m: 40 60
40 - ( 41 - ) 42 - *
43 - + 44 - , 45 - -
46 - . 47 - / 48 - 0
49 - 1 50 - 2 51 - 3
52 - 4 53 - 5 54 - 6
55 - 7 56 - 8 57 - 9
58 - : 59 - ; 60 - <
n: 100
100 d
c: {
{ 123