var a:integer;
begin
readln (a);
writeln('Цифра десятков: ',abs(a) div 10);
writeln('Цифра единиц: ',abs(a) mod 10);
end.
Пример:
25
Цифра десятков: 2
Цифра единиц: 5
Uses Crt;
Var
f:text;
S,n,k,d:integer;
Begin
Assign(f,'TextIn.txt');
Reset(f);
Read(f,n);
k:=0;
For n:= 1 to n do
Begin
S:=0;
d:=n div 2;
While d<>0 do
Begin
if n mod d = 0 then S:=S+d;
d:=d-1
End;
if S = n then
Begin
WriteLn(n);
k:=k+1
End
End;
Close(f);
Assign(f,'TextOut.txt');
ReWrite(f);
Write(f,k);
Close(f);
ReadLn;
End.
Для правильной работы программы необходимо, чтобы эти файлы лежали в папке с программой:
Они злоумышленники. Их цель навредить человеку или какой нибудь компании,нанеся им материальные убытки в виде поломанной техники или обесценивания товара
Ответ:
256₈=10101110₂=АЕ₁₆
Объяснение:
Используем таблицу триад и тетрад.
256₈=010 101 110₂=1010 1110₂=АЕ₁₆
Таблица триад
0₈=000₂ || 1₈=001₂ || 2₈=010₂ || 3₈=011₂ || 4₈=100₂ ||
5₈=101₂ || 6₈=110₂ || 7₈=111₂ ||
Таблица тетрад
0₁₆=0000₂ || 1₁₆=0001₂ || 2₁₆=0010₂ || 3₁₆=0011₂ ||
4₁₆=0100₂ || 5₁₆=0101₂ || 6₁₆=0110₂ || 7₁₆=0111₂ ||
8₁₆=1000₂ || 9₁₆=1001₂ || A₁₆=1010₂ || B₁₆=1011₂ ||
C₁₆=1100₂ || D₁₆=1101₂ || E₁₆=1110₂ || F₁₆=1111₂ ||