<span>Рассмотрим исходное число 171673₈
Самая левая цифра 1 в двоичной записи имеет два нуля, но поскольку цифра самая левая, то они оба незначимые и не учитываются. В остальных цифрах все нули значимые.
А теперь вместо каждой цифры запишем количество нулей в ней и сложим написанные числа:
</span><span>0+2+1+0+1=4
Ответ: 4
</span>
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a[::-1].Println
end.
Сделано с рандомными числами.
program massiv; var mas:array [1..10] of real; a:real; i:byte; begin a:=0; for i:=1 to 10 do begin mas[i]:=random(10)+1; if a<mas[i] then a:=mas[i]; end; writeln(a, ' - наибольшее из чисел массива ' ); end.
Б)2504200,32 B)264,792 ВРОДЕ ТАК ))
Задание 2
a := 14
b := a/2 (14 / 2 = 7)
a := b*b (7 * 7 = 49)
c := sqrt(a) (корень из 49 = 7)
Ответ: 7