Var
s1,s2,s3,s4:string;
k:integer;
begin
writeln('Введите 1 слово:');
readln(s1);
writeln('Введите 2 слово:');
readln(s2);
writeln('Введите 3 слово:');
readln(s3);
writeln('Введите 4 слово:');
readln(s4);
writeln('Список одинаковых слов');
if (s1=s2)or(s1=s3)or(s1=s4) then begin k:=1; writeln(s1); end;
if (s2=s3)or(s2=s4) then begin k:=1; writeln(s2); end;
if s3=s4 then begin k:=1; writeln(s3); end;
if k=0 then writeln('Одинаковых слов нет');
end.
запишем условие: К=20, N=32, I-?
решение: зная мощность алфавита посчитаем по формуле вес одного символа 32=2^i, 32 -это пятая степень числа 2, запишем это в правой части равенства. 2^5=2^i, отсюда i=5 бит
количество информации в тексте равно 20*5=100 бит
Ответ:
DE5
Объяснение:
A = 100
B = 101
C = 110
D = 111
CDAB = 110 111 100 101 = 1101 1110 0101 = DE5
Модифицированные данные с диаграммами в 1 лист
var f1,f2:text;
d,s,z,n:longword;
a,b,t,m,x:smallint;
begin
assign(f1,'input.txt');
reset(f1);
assign (f2,'output.txt');
rewrite(f2);
readln(f1,d,a,b,s,t);
if a>b then x:=a-b else x:=b-a;
if d mod s=0 then n:=d div s else n:=d div s+1;
if x mod t=0 then m:=x div t else m:=x div t+1;
z:=n+m;
write(f2,z);
close (f1);
close (f2);
end.