1)
6-ричный :
0
1
2
3
4
5
8-ричный:
0
1
2
3
4
5
6
13-ричный:
0
1
2
3
4
5
6
7
8
9
A
B
C
2)
В двоичной:
0110111001011101111000100110101011110011011110111110000100011001010011В четверичной:
0123101112132021222330313233100101102103В семеричной:
012345610111213141516100101102103104105В одиннацатеричной:
0123456789A1011121314151617183)
11100010110304002321010848100107B00AB300F02F1FA4)
101111010032133220362635666CDD7ABD7C2CFABF2E5)
1.
Наибольшее число в двоичной тремя цифрами:
111
Перевод в десятичную:
8
2.
Наибольшее число в пятеричной тремя цифрами:
444
Перевод в десятичную:
4*4^2 + 4*4^1 + 4*4^0=84
3.
Наибольшее число в двенадцатеричной тремя цифрами:
BBB либо [12] [12] [12]
Перевод в десятичную:
12*12^2 + 12*12^1 + 12*12^0=1884
6)
1.
1010111 {2}
1*2^6 + 1*2^4 + 1*2^2 + 1*2^1 + 1*2^0=87
2.
255 {8}
2*8^2 + 5*8^1 + 5*8^0=173
3.
C7 {16}
13*16^1 + 7*16^0=215
7)
1.
68
В двоичную:
64+4=2^6 + 2^2=1000100
В восьмеричную:
001 000 100=105
В шестнадцатеричную:
1000 0100=95
2.
465
В двоичную:
256+128+64+16+1=2^8 + 2^7 + 2^6 + 2^4 + 2^0=111010001
В восьмеричную:
111 010 001=731
В шестнадцатеричную:
0001 1101 0001=1D1
3.
294
В двоичную:
256+32+4+2=2^8 + 2^5 + 2^2 +2^1=100100110
В восьмеричную:
100 100 110=446
В шестнадцатеричную:
0001 0010 0110=126
P.s.
Перевод из двоичной в шестнадцатеричную (а также в восьмеричную, если отбросить первый ноль) :
0. 0000 |8
0001 |80010 |80011 |80100 |80101 |80110 |80111 |810001001(A) 1010(B) 1011(C) 1100(D) 1101(E) 1110(F) 1111
using System;
using System.Linq;
namespace task29760750
{
internal class Program
{
private static void Main(string[] args)
{
var N = int.Parse(Console.In.ReadLine());
var array = Console.In.ReadLine()
.Split(' ')
.Select(int.Parse)
.ToArray();
var X = int.Parse(Console.In.ReadLine());
var indices = array
.Select((t, i) => t == X ? i : -1)
.Where(t => t > 0)
.ToArray();
Console.Out.WriteLine(indices.Any() ? string.Join(" ", indices) : "-1");
}
}
}
Задание 3 (двухмерный массив)
var
a:array [1..10,1..7] of integer;
k,i,j:integer;
begin
randomize;
for i:=1 to 10 do begin
for j:=1 to 7 do begin
a[i,j]:=random(9)+1;
write (a[i,j]:4);
if a[i,j] mod 2 <> 0 then k:=k+1;
end;
writeln;
end;
writeln ('Количество нечетных элементов массива = ',k);
readln;
end.
Задание 2 (двухмерный массив)
uses crt;
const
a:array [1..5,1..5] of integer = ((100,101,102,103,104),
(200,201,202,203,204),
(300,301,302,303,304),
(400,401,402,403,403),
(500,501,502,503,504));
var
i,j:integer;
begin
clrscr;
for i:=1 to 5 do begin
for j:=1 to 5 do
if j mod 2 = 0 then begin
textcolor (12);
write (a[i,j]:4);
textcolor (7);
end else begin
textcolor (9);
write (a[i,j]:4);
textcolor (7);
end;
writeln;
end;
readln;
end.
Задание 1 (одномерный массив)
uses crt;
var
a:array [1..7] of integer;
i,sum:integer;
begin
clrscr;
for i:=1 to 7 do begin
write ('A[',i,'] = ');readln(a[i]);
if a[i]>0 then sum:=sum+a[i];
end;
for i:=1 to 7 do
if a[i]>0 then begin
textcolor (red);
write (a[i]:4);
end else begin
textcolor (blue);
write (a[i]:4);
end;
writeln;
textcolor (darkgray);
writeln ('Сумма положительных элементов = ',sum);
readln;
end.
Задание 4 (одномерный массив)
uses crt;
var
a:array [1..12] of integer;
i,buf,min,max:integer;
begin
clrscr;
randomize;
a[1]:=random(14)+1;
min:=1;
max:=2;
writeln ('Исходный массив: ');
write (a[1]:4);
for i:=2 to 12 do begin
a[i]:=random(14)+1;
write (a[i]:4);
if a[i]>a[max] then max:=i else
if a[i]<a[min] then min:=i;
end;
writeln;
{смена 1-ого и последнего эл}
buf:=a[1];
a[1]:=a[12];
a[12]:=buf;
{смена 2-ого и мин эл}
buf:=a[2];
a[2]:=a[min];
a[min]:=buf;
{смена 1-ого и макс эл}
buf:=a[1];
a[1]:=a[max];
a[max]:=buf;
writeln ('Результирующий массив:: ');
for i:=1 to 12 do write (a[i]:4);
writeln;
readln;
end.
Задание 3 (одномерный массив)
var
a,b:array [1..10] of integer;
i,j:integer;
s1,s2:real;
begin
randomize;
s1:=0;
s2:=0;
writeln;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
b[i]:=random(19)-9;
write (a[i]:4);
s1:=s1+a[i];
s2:=s2+b[i];
end;
writeln;
for i:=1 to 10 do write (b[i]:4);
writeln;
s1:=s1/10;
s2:=s2/10;
if s1>s2 then writeln ('S1 > S2') else
if s1<s2 then write ('S1 < S2') else writeln ('S1 = S2');
readln;
end.