а) 370₁₀ = 101110010₂
б) 244₁₀ = 340₈
в) 670₁₀ = 29E₁₆
Объяснение:
а)
370 / 2 = 185 + остаток 0
185 / 2 = 92 + остаток 1
92 / 2 = 46 + остаток 0
46 / 2 = 23 + остаток 0
23 / 2 = 11 + остаток 1
11 / 2 = 5 + остаток 1
5 / 2 = 2 + остаток 1
2 / 2 = 1 + остаток 0
1 / 2 = 0 + остаток 1
записываем остатки снизу вверх
370₁₀ = 101110010₂
б)
224 / 8 = 28 + остаток 0
28 / 8 = 3 + остаток 4
3 / 8 = 0 + остаток 3
записываем остатки снизу вверх
244₁₀ = 340₈
в)
670 / 16 = 41 + остаток 14
41 / 16 = 2 + остаток 9
2 / 16 = 0 + остаток 2
записываем остатки снизу вверх
670₁₀ = 29E₁₆
В качестве цифр шестнадцатеричной системы счисления обычно используются цифры от 0 до 9 и латинские буквы от A до F.
A₁₆ = 10₁₀ B₁₆ = 11₁₀ C₁₆ = 12₁₀ D₁₆ = 13₁₀ E₁₆ = 14₁₀ F₁₆ = 15₁₀
program raf105;
var a,sum:integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
sum+= a;
until a=0;
writeln('Сумма: ',sum);
end.
2.program raf105;
var
s:string;
i,k,j:integer;
poli:boolean;
begin
poli:= true;
write('Введите слово: ');
readln(s);
s:= lowercase(s);
k:= length(s) div 2;
j:= k*2+1;
if (length(s) mod 2)<>0
then j+= 1;
for i:=1 to k do
begin
j-=1;
if poli
then poli:= s[i] = s[j];
end;
if poli
then writeln('Слово - палиндром')
else writeln('Слово - не палиндром');
end.
3.
program raf105;
var a:array[1..10] of integer;
x,i:integer;
begin
writeln('Вводите 10 чисел по очереди');
for i:=1 to 10 do
readln(a[i]);
write('Введите искомое число: ');
readln(x);
write('Индексы совпадающих элементов: ');
for i:=1 to 10 do
if a[i] = x
then write(i,' ');
end.
4.program raf105;
var a:integer;
begin
write('Введите номер дня недели: ');
readln(a);
case a of
1: writeln('Это Понедельник');
2: writeln('Это Вторник');
3: writeln('Это Среда');
4: writeln('Это Четверг');
5: writeln('Это Пятница');
6: writeln('Это Суббота');
7: writeln('Это Воскресенье');
end;
end.
5.program raf105;
var a:array[1..100] of integer;
i,o,x: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
o+= 1;
readln(a[o]);
until a[o]=0;
o-= 1;
writeln('Введённые числа в обратном порядке:');
for i:=o downto 1 do
writeln(a[i]);
end.
25600:25=1024