<em>1. Современное решение</em>
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function From5to10(Self:sequence of string):sequence of integer;
extensionmethod;
// Перевод последовательности заданных на строках пятиричных чисел
// в последовательность целых десятичных чисел
begin
foreach var s in Self do begin
var r:=0;
var pa:=1;
foreach var c in s.Reverse do begin
r+=c.ToDigit*pa; pa*=5
end;
yield r
end
end;
begin
var s:=ReadlnString('Введите строку:').MatchValues('[0-4]+').From5To10;
if s.Count=0 then Writeln('S=-1')
else Writeln('S=',s.Sum)
end.
<u>Пример</u>
Введите строку: sdf812973j223k
S=73
<em>2. Решение на TurboPascal ("Так писали наши отцы и деды в 1983 году, так и нас сейчас учат в школе")</em>
uses Crt;
function From5to10(n:string):integer;
{ Перевод из пятиричного числа в строковом представлении
в целое десятичное }
var
i,pa,s:integer;
begin
s:=0;
pa:=1;
for i:=Length(n) downto 1 do begin
s:=s+pa*(Ord(n[i])-Ord('0'));
pa:=pa*5
end;
From5to10:=s
end;
var
s,w:string;
i,k,r:integer;
begin
ClrScr;
Write('Введите строку: ');
Readln(s);
w:='';
r:=0;
k:=0;
for i:=1 to Length(s) do begin
if Pos(s[i],'01234')>0 then begin
if w='' then k:=k+1;
w:=w+s[i]
end
else
if w<>'' then begin
r:=r+From5to10(w);
w:=''
end
end;
if k=0 then Writeln('S=-1')
else Writeln('S=',r);
ReadKey
end.
1) 46
2) 8
3) Антон/Иван/Никита. если один вариант, то не знаю
В 10 ещё Эксель и три Дэ макс
Пусть объём 1го файла - 2х (2 т.к. стереозапись),
тогда пропускная способность первого канала - 2х/18.
после второй оцифровки файл был записан в формате моно (то есть уменьшился вдвое) и стал просто х, после улучшения разрешения увеличился вдвое и стал 2х, после увеличения частоты дискретизации увеличился вдвое еще раз и стал наконец 4х (объём второго файла).
пропускная способность 2го канала в 5 ниже т.е (2х/18)/5= 2х/90= х/45.
чтобы узнать сколько времени затратилось на передачу файла объёмом 4х с пропускной способностью х/45, разделим объём на пропускную способность:
4х/(х/45)= 4*45=180 секунд
16 бит, выразить в компьютерном представлении, заодно выснить макс. мин. числа вмещающиеся в 16 бит и не только в 16 бит, а ещё модифицированные 16 бит из задачи ппц, я учител твой шатал.
со знаком:
8 бит (маленькое число) min = -128; max = 127 числа.
16 бит (большое число) min = -32768; max = <span>32767 числа.
без знака:
8 бит (маленькое число) min = 0; max = 255 числа.
16 бит (большое число) min = 0; max = 65535 числа.
----------------------------------------------------------------------------------------
</span>Записать дополнительный код отрицательного числа в 16 бит.
-2002 = 1111 1000 0010 1110
255 = 0000 0000 1111 1111
-255 = 1111 1111 0000 0001
<span>32768 = 1111 1111 1111 1111 тут 1 бит обрезался, поэтому так.
</span><span>-32768 = 1000 0000 0000 0000</span>
