Program npow2;
var
n, i, s: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
s := s + i * i;
writeln(s);
end.
32=2^6 => Для русского языка 1 символ несет 6 бит инфы.
26=2^i => i = log 26 по основанию 2 = 4,7 бит => Для фр. языка 1 символ несет 4,7 бит инфы.
V информации = 10 * 6 бит = 60 бит (для русского языка)
V информации = 10 * 4,7 бит = 47 бит (для фр. языка)
Значит для русского языка сообщение из 10 знаков несет больше информации.
А где собственно задание?
A = «Число 22 — чётное число» true (истина)<span>
B =«Волк — травоядное животное» f</span>alse (ложь)
Значения логического типа boolean занимают 1 байт и принимают
одно из двух значений, задаваемых предопределенными константами
True (истина) и False (ложь).