// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Введите натуральное число');
var k:=ReadChar('Введите символ для исключения');
s.Where(x->x in ['0'..'9']).Reverse.Where(x->x<>k).PrintLn('')
end.
<u><em>Тестовые решения</em></u>
<u>- сначала корректное число:</u>
Введите натуральное число 23610645311065462546320
Введите символ для исключения 6
023452450113540132
<u>- а теперь число, замусоренное разными символами:</u>
Введите натуральное число 1234 разорвем2356-783+342\1421453!!!
Введите символ для исключения 3
5412412487652421
100 байт
256= 2 в восьмой степени - восемь бит для кодировки одной точки
умножаем количество точек на количество бит 10*10*8 = 800
В одном байте 8 бит, следовательно 100 байт
Const n=15;
var a: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin a[i]:=random(10); write(a[i], ' '); end;
writeln;
for i:=1 to n do if a[i]=4 then write('A[',i,']', ' ');
<span>end.</span>
Сначала считаем кол-во символов - 22.Потом умножаем на 8 получается 176 бит.
Ответ:4)176 бит
0,0041·10² = 0,41·10⁰
-16,78·10⁻³ = -0.1678·10⁻¹