<span>Для перевода числа из любой системы счисления в
десятичную систему надо содержимое каждого
разряда умножить на его "вес" (то есть на основание системы в степени
n-1, где n-номер разряда), а затем суммировать полученные результаты.
В
разрядах, где шестнадцатеричная цифра записана буквой, нужно записать
вместо неё соответствующее десятичное число (вместо A пишем 10, далее: B=11,
C=12, D=13, E=14, F=15).
Считаем по вышеуказанным правилам:
1) 0010</span>₂<span> = 0*2⁰ + 1*2¹ + 0*2² + 0*2³ = 0*1 + 1*2 + 0*4 + 0*8 = 0+2+0+0 = 2₁₀
</span>1011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ = 1*1 + 1*2 + 0*4 + 1*8 = 1+2+0+8 = 11₁₀
11101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 1*2⁴ = 1*1 + 0*2 + 1*4 + 1*8 +1*16 = 1+0+4+8+16 = 29₁₀
0111₂ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ = 1*1 + 1*2 + 1*4 + 0*8 = 1+2+4+0 = 7₁₀
0101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ = 1*1 + 0*2 + 1*4 + 0*8 = 1+0+4+0 = 5₁₀
2) 777<span>₈ = </span>7*8⁰ + 7*8¹ + 7*8² = 7*1 + 7*8 + 7*64 = 7+56+448 = 511₁₀
375₈ = 5*8⁰ + 7*8¹ + 3*8² = 5*1 + 7*8 + 3*64 = 5+56+192 = 253₁₀
111₈ = 1*8⁰ + 1*8¹ + 1*8² = 1*1 + 1*8 + 1*64 = 1+8+64 = 73₁₀
1015₈ = 5*8⁰ + 1*8¹ + 0*8² + 1*8³ = 5*1 + 1*8 + 0*64 + 1*512 = 5+8+0+512 = 525₁₀
3) 15₁₆ = 5*16⁰ + 1*16¹ = 5*1 + 1*16 = 5+16 = 21₁₀
A6₁₆ = 6*16⁰ + 10*16¹ = 6*1 + 10*16 = 6+160 = 166₁₀
1F5₁₆ = 5*16⁰ + 15*16¹ + 1*16² = 5*1 + 15*16 + 1*256 = 5+240+256 = 501₁₀
63<span>₁₆ = 3*16⁰ + 6*16¹ = 3*1 + 6*16 = 3+96 = 99₁₀</span>
Путь к файлу включает в себя название локального диска (на Windows, на линукс же просто "/home...")
И в принципе все, ведь файл может просто находиться на локальном диске не в папке
Пример:
C:\File.txt
В линукс выглядело бы так
/home/user/File.txt
Сразу видно что в линукс все по уму,
/ - корневой каталог
home - <span>домашние каталоги пользователей системы</span>
user - имя пользователя (а ведь пользователей могло быть и по 5 штук....)
File.txt - сам файл
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов ',a.Sum);
Writeln('Количество четных элементов ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение:</em></u>
-3 4 10 1 2 6 8 7 10 14
Сумма элементов 59
Количество четных элементов 7
)напиши куда слово встовлять(вначало, вконец, посередине...);
<span>program z2; </span>
<span>var s,s1:string; </span>
<span>a:integer; </span>
<span>begin </span>
<span>write('Введите слово: ');read(s1); </span>
<span>write('Введите строку: ');read(s); </span>
<span>s:=s+' '; </span>
<span>a:=length(s); </span>
<span>writeln(a); </span>
<span>insert(s1,s,a+1); </span>
<span>writeln('Преобразованная строка: ',s); </span>
<span>end. </span>
<span>2) </span>
<span>program z1; </span>
<span>var s:string; </span>
<span>i,kol:integer; </span>
<span>begin </span>
<span>writeln('Введите строку'); </span>
<span>read(s); </span>
<span>kol:=0; </span>
<span>for i:=1 to length(s) do </span>
if (s<>' ')and(s<>'1')and(s<>'2')and(s<>'3')and
(s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and
(s<>'8')and(s<>'9')and(s<>'0') then inc(kol);
writeln(Kol);
end.
Program pr1;
var x,y, nod:integer;
begin
readln(x,y);
repeat
if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln('НОД=', nod);
<span>end.
program pr2;
var i,n,sum:integer;
begin
readln(n);
sum:=1;
for i:=1 to n do
if i mod 2 = 0 then inc(sum,i);
writeln(sum);
<span>end.</span></span>