А) 1 *2^{0}+1 *2^{3} +1* 2^{2}+1* 2^{4}+1* 2^{5}+1* 2^{7} =1+4+8+16+32+128=189 степени расставлять с конца (начиная с нуля) б) 112 (см. а) в) деление в один большой столбик. если число четное, то в остатке 0, а если нечетное, то единица. число собирать с конца. 1100011101101 г) 10010100110 (см. в) д) 10000101101 е) 10011010100 (см.в) ж) 10101100000011 з) 27 (см. а) и) 752
а) вверху дописано г) лучше делить столбиком, как в 1-м классе, но тут неудобно так писать, поэтому я распишу так. 1190/2=595 (ост. 0) 595/2=297 (ост.1) 297/2=148 (ост.1) 148/2=74 (ост. 0) 74/2=37 (ост.0) 37/2=18 (ост. 1) 18/2=9 (ост. 0) 9/2=4 (ост.1) 4/2=2 (ост.0) 2/2=1 (ост.0) собираем с конца 10010100110
Эту задачу очень легко решить при логарифмов. Если при делении логарифма числа на логарифм пяти получится целое число, то искомое есть степень пятерки, а результат деления и есть показатель степени.
На примере: lg(125) / lg(5) = 3. Так как 5³ = 125 lg(812) / lg(5) ≈ 4.16 поэтому 812 не явл. степенью 5-ки.
print "Введите число" input A S = log(A) / log(5) if S = int(S) then print "Число ";А; "является степенью числа 5" print "Показатель степени "; S else print "Число ";А; "не является степенью числа 5" end if end
вверху дописано
=27
Var a: array [1..20] of integer; i,s1,s2:integer;
Begin
For i:=1 to 20 do begin
Writeln('введите элемент ',i); read(a[i]);
If i mod 2=0 then s1:=s1+a[i] else
s2:=s2+a[i];
end;
Writeln('Среднее ариф. четных ',s1/20,'; А нечетных ',s2/20);
readln;
end.
Ну как всегда: вопросы - в личку)