Сколько единиц в двоичной записи числа 8^2341 – 4^342 + 2^620 – 81?

2в двоичной записи единица и ноль 2^n это единица и n нулей. (2^n - 1) это n единиц ((2^n - 1) - 2) = (2^n - 3) это n-2 единицы, ноль и единица (n> =2 иначе всё плохо) 8 - единица и 3 нуля 8^n - единица и 3*n нулей последний шаг делайте сами. ответ: 1+ (1024 - 1) = 1024

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

                                                                           

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

 

 

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))

 

 

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.