решить (желательно ворд) ​

они могли обозначать союзы, знаки препинания, слова в один слог.

var a,b: integer;

is7: boolean;

begin

    readln(a);

    b: =0;

    is7: =false;

    while a < > 0 do

    begin

        b: =b+a mod 10;

        if a mod 10 = 7 then

            is7: =true;

        a: =a div 10;

    end;

    wrtieln('сумма цифр: ', b);

    write('цифра 7 ');

    if is7 then writeln('есть') else writeln('нет');

    readln;

end.

значит так, используем единственную в информатике формулу

n=2^i

n-это количество символов в алфавите, значит n=64

64 это 2 в 6 степени, значит i=6 - это информационный объем одного символа, а нам надо найти информационный объем 3072 символа, значит

6*3072 = 18432 бита = 2304 байта

program chislo;

var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.