<span>2001 - 12 + 18 = 2007
0111 1101 0001 - 1100 + 0001 0010 = 0111 1101 0111</span>
Акие можно использовать символы в имени файла? В именах файлов рекомендуется использовать русские и латинские буквы, цифры, пробелы и знаки препинания. Однако имя файла не следует начинать с точки, а также использовать в имени квадратные [ ] или фигурные { } скобки. Недопустимыми для имен файлов являются следующие служебные символы / \ | : * ? “ < >
<em><u>Для среды программирования Windows (типа PascalABC.Net)</u></em>
var
f,n:longint;
a:real;
begin
Read(n);
f:=2*n;
if f>0 then f:=2*(f+n)
else f:=n*f;
if f<0 then a:=f/10
else a:=f/2;
Writeln(a)
end.
<em><u>Для среды программирования DOS (типа Turbo Pascal)</u></em>
uses Crt;
var
f,n:longint;
a:real;
begin
ClrScr;
Read(n);
f:=2*n;
if f>0 then f:=2*(f+n)
else f:=n*f;
if f<0 then a:=f/10
else a:=f/2;
Writeln(a);
ReadKey
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку');
for var i:=s.Length downto 1 do
if s[i]<>' ' then Insert('а',s,i+1);
Writeln(s)
end.
<u>Пример</u>
Введите строку Мама мыла раму маша ела кашу
Мааамааа маыалааа рааамауа мааашааа еалааа кааашауа
Одна секунда будет занимать
44100 Герц * 20 * 2 = 1764000 бит / 8 =220500 байт
220500 байт / 1024 / 1024 = 0,2102 Мбайт
найдем длительность сигнала
4,41 / 0,2102 = 21 секунда