Program test;
const s=45;
begin
writeln(sin(s):0:3);
end.
<span>Рассмотрим исходное число 171673₈
Самая левая цифра 1 в двоичной записи имеет два нуля, но поскольку цифра самая левая, то они оба незначимые и не учитываются. В остальных цифрах все нули значимые.
А теперь вместо каждой цифры запишем количество нулей в ней и сложим написанные числа:
</span><span>0+2+1+0+1=4
Ответ: 4
</span>
QBASIC
cls
INPUT " shIrIna ": a
INPUT "doing. ": b
c = a*b
PRINT "S": c
end
Var
a: real;
k: integer;
begin
k:= 0;
repeat //цикл repeat выполняется до тех пор, пока не будет введено число 15
writeln('Введите число');
readln(a);
k:= k + 1;
until a = 15;
writeln('15k = ', 15 * (k - 1)); { (k - 1) чтобы в подсчете введенных чисел не учитывалось само число 15}
end.