var a:array[1..100]of integer;
i,n,s1,s2:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);s1:=0;s2:=0;
for i:=1 to n do
if i mod 2=0 then s1:=s1+a[i];
if i mod 2=1 then s2:=s2+a[i];
writeln(s1,' ',s2);
end.
18)а 19)а 20)б 38-55)а б в г д
print(*(i for i in range(int(input()) + 1) if str(i * i).endswith(str(i))))
Зависит от того в сколькобитовой кодировке оно закодировано.
Считаешь количество символов в строке (включая пробелы и знаки препинания), и умножаешь на количество бит, приходящееся на 1 символ.
если на 1 символ приходится 8 бит (8-битовая кодировка, например koi-8), то информационный объем слова "Дмитрий" будет равен 7*8=56 бит
если кодировка 16-битная, то 7*16=112 бит.