1. переведите целые числа из десятичной системы в восьмиричную: а) 513 б) 600 в) 2010 2.переведите целые числа из десятичной системы в шестнадцатиричную: а) 513 б) 600 в) 2010
1. var n,i:integer; mass:array[1..10000] of integer; begin writeln('Введите кол-во чисел'); read(n); for i:=1 to n do begin write('mass[',i,']='); read(mass[i]); end; writeln('Элементы массива которые четные и двухначные'); for i:=1 to n do if (mass[i] mod 2=0) and (mass[i] div 10>0) and (mass[i] div 10<10) then write(mass[i]:4); end. 2. var n,i:integer; mass:array[1..10000] of integer; begin writeln('Введите кол-во чисел'); read(n); for i:=1 to n do begin write('mass[',i,']='); read(mass[i]); end; writeln('Элементы массива которые кратны 4 и трехзначные'); for i:=1 to n do if (mass[i] mod 4=0) and (mass[i] div 100>0) and (mass[i] div 100<10) then write(mass[i]:4); end. 3. var i,a,m:integer; begin m:=3; for i:=1 to 10 do writeln(i,' * ',m,' = ',i*m); end.
513 | 1
64 | 0
8 | 0
1 | 1
0 |
513₁₀ = 1001₈
б) 600₁₀ → X₈
600 | 0
75 | 3
9 | 1
1 | 1
0 |
600₁₀ = 1130₈
в) 2010₁₀ → X₈
2010 | 2
251 | 3
31 | 7
3 | 3
0 |
2010₁₀ =3732₈
2. a)513₁₀ → X₁₆
513 | 1
32 | 0
2 | 2
0 |
513₁₀ = 201₁₆
б) 600₁₀ → X₁₆
600 | 8
37 | 5
2 | 2
0 |
600₁₀ = 258₁₆
в) 2010₁₀ → X₁₆
2010 | 10 (А)
125 | 13 (D)
7 | 7
0 |
2010₁₀ = 7DA₁₆