var
S:string;
i:integer;
begin
write('S = ');
readln(S);
for i := 1 to Length(S) do
if S[i] <> S[Length(S) - i + 1] then
begin
writeln('No');
readln;
Exit;
end;
writeln('Yes');
readln;
end.
//вторая программа
var
S:string;
i, countA, countE:integer;
begin
CountA := 0;
CountE := 0;
write('S = ');
readln(S);
for i := 1 to Length(S) do
if S[i] = 'a' then
inc(countA)
else
if S[i] = 'e' then
inc(countE);
if countA > countE then
writeln('a > e')
else
if countA < countE then
writeln('a < e')
else
writeln('a = e');
readln;
end.
Один символ 16-символьного алфавита кодируется так: 2^4 = 16
Тогда сообщение из 512 символов составляет:
512 * 4(бита) = 256 * 8 (бит) = 256 (байт) = 0.25 * 1024 (байт) = 0.25 (Кб)
ответ: 0.25 (Кб)