Var
f:Text;
n,k:integer;
begin
Assign(f,'input.txt');
Reset(f);
n:=0;
while not Eof(f) do begin Read(f,n); Inc(k) end;
Close(f);
Assign(f,'output.txt');
Rewrite(f);
Writeln(f,k); Writeln(k);
Close(f)
end.
1) Записать число в двоичной системе счисления, и степени двойки справа налево: 16,8,4,2,1
2) Пройдитесь по каждой цифре двоичного числа. Если эта цифра 1, запишите
соответствующую степень двойки под цифрой. Если эта цифра 0, запишите
под цифрой 0.
т.е. 16 в первой степени, 8 в нулевой, 4 в первой, 2 в нулевой, 1 в первой
3) сложить полученные результаты
<span>
10101 ² = 16^1+8^0+4^1+2^0+1^1= 16+0+4+0+1=21
^ - это возведение в степень
</span>
var a:array [1..5] of integer;
s,i:integer;
BEGIN
for i := 1 to 5 do
begin
writeln('a[',i,']=');
read(a[i]);
s:=s + a[i]
end;
writeln('s=',s);
END.
Ответ:
чтобы определить информационный объем текста (печатного), нужно подсчитать общее количество отдельных символов (букв, знаков, пробелов) и умножить это количество на информационный объем одного символа (а это, как вы уже знаете, 1 байт). Конечно, для больших текстов точно подсчитать общее количество символов сложно, но можно подсчитать примерное количество символов в одной строке, умножить на количество строк на странице, а затем умножить на количество страниц.
Объяснение:
А)19=10011=23=13
б) 231=11100111=347=Е7
в) 506=111111010=772=1FA
г)57,105=111001,00011=71,06514=2F,1AE14
