Шаг 1. Узнаёшь коды символов по таблице нужной кодировки (ну или слентяйничать, как я)
Шаг 2. Перевести все коды из
в
калькулятором... Или нет х)
Шаг 3. Записать всё по порядку. Если кодировка однобайтная, как сейчас, то можно хоть подряд...
4D 79 20 68 61 70 70 79 20 45 6E 67 6C 69 73 68
{ Использован код горизонтальной табуляции
09 для выравнивания вывода }
var
a,b,h,x:real;
begin
Write('введите a,b,h: '); Read(a,b,h);
x:=a;
while x<=b do begin
Writeln(x,#09,#09,4*sin(x*x)+cos(x));
x:=x+h
end
end.
Пример
введите a,b,h: -2.15 1.7 0.38
-2.15 -4.53120848610505
-1.77 -0.163118638139122
-1.39 3.92156008975769
-1.01 3.9405021385098
-0.63 2.35427225489945
-0.25 1.21874969308017
0.13 1.05915867588807
0.51 1.90145326606337
0.89 3.47673114723651
1.27 4.29273595805526
1.65 1.54860630059752
Var s:string; k,i:integer;
begin
write('Введите слово: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='е' then k:=k+1;
writeln('В слове ',s,' буква а встречается ',k,' раз');
end.
Дано:
N1=256
N2=32
k1=k2=k
Найти:
Решение
i-вес одного символа в битах
N- мощность алфавита, или количество символов
- информационный объем
Ответ. Первый объем больше второго в 1.6 раз