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 n1; const n=10; var mas: array[1..n] of integer; i: integer; max,min,sum: integer; ar: real; begin for i: =1 to n dobegin mas[i]: = random (20)-10; write(mas[i],' '); writeln end; max: =1; for i: =2 to n do if mas[i]> mas[max] then max: =i; writeln; writeln('максимаьное значение a[',max,']= ',mas[max]); min: =1; for i: =2 to n do if mas[i]< mas[min] then min: =i; writeln; writeln(минимальное значение a[',min,']= ',mas[min]); for i: =1 to n do sum: =sum+mas[i]; ar: =sum/n; writeln; writeln('среднее арифметическое = ',ar); end.{немного нерационально но работает=)}
Ответ дал: Гость
var
a: integer;
begin
readln(n);
writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);
end.
var
a: integer;
begin
readln(n);
writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);
Популярные вопросы