Program DemoSet;
uses crt;
var s:string;
i,k:integer;
begin
k:=0;
clrscr;
write('Введите произвольную строку =>');
readln(s);
writeln('Строка результат');
for i:=1 to length(s) do
begin
if not(s[i] in [1234567890] )then
begin
if s[i] in ['0'..'9'] then inc(k);
write(s[i])
end;
end;
writeln;
writeln('Количество цифр в строке ',k);
readln
end
101012<span> + 111</span>2<span> = 11100</span><span>2
</span>1010102<span> + 1101</span>2<span> = 110111</span><span>2
</span>10102<span> + 1010</span>2<span> = 10100</span><span>2
</span>10102<span> × 11</span>2<span> = 11110</span><span>2
</span>1112<span> × 101</span>2<span> = 100011</span><span>2
</span>10102<span> × 111</span>2<span> = 1000110</span><span>2</span>
1
4 дороги = 2^2 т.е. 2 бита информации
2
16 = 2^4 значит символ веси 4 бит
Вес текста = 384 * 4 бит = 1536.0 бит = 192.0 байт = 0.1875 Кбайт
Ну я думаю 32 * на столько сколько он сам стоит например 420
Формула свободного падения и формулы которые тут нужны - разные. могу только дать тебе "скелет" программы. теперь тебе нужно найти именно ЭТИ формулы, которые записаны в задаче, возможно таких формул в чистом виде не существует и нужно применять навыки знания физики