<span>наука об общих закономерностях процессов у</span>правления<span> и передачи и</span>нформации<span> в различных с</span>истемах
3 задача
N=30 символов => 32=2 в 5 степени >=30
один символ кодируется 5 битами, 3 символа 3*5=15 битов.
Сказано, что каждый шифр кодируется целым числом байтов
2байта=16 бит>= 15 бит
всего 100 шифров, => 2*100=200 байт
const M: array[1..8] of real = (0.1, 5.6, 0.8, 2.4, 7.3, 6.8, 0.5, 2.3);
var x,y : file of real;
n: real; i: byte;
begin
assign(x,'x.dat');
assign(y,'y.dat');
rewrite(x);
for i:=1 to 8 do write(x, M[i]);
close(x);
reset(x);
rewrite(y);
i := 1;
while not EOF(x) do begin
read(x, n);
if not odd(i) then
write(y, n);
i := i + 1;
end;
close(x);
close(y);
reset(y);
while not EOF(y) do begin
read(y, n);
write(n:5:1);
end;
writeln;
close(y);
end.
Создаешь массив со своим предложением,
если правильно понял задачу то можно просто вывести последние слово:
for от начала слово и до его конца и выведутся символы последнего слово
Принцып я обьяснил, осталось тебе только написать код.
Readln(s);
s1:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
s2:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
s3:=s;
if(s1>s2)and(s1>s3)then writeln(s1)
else if(s2>s1)and(s2>s3)then writeln(s2)
else writeln(s3);