Программа на скрине! Надеюсь помог!
Заходишь в калькулятор, нажимаешь вид -> программист потом ставишь в систему счисления в зависимости от той которая тебе нужна, и пишешь число, нажимашь на другую систему и вуаля
91
- в двоичную
<span>Делим число на 2 и выписываем остатки</span>
<span>91 = 45·2 + </span>1
<span>45 = 22·2 + </span>1
<span>22 = 11·2 + </span>0
<span>11 = 5·2 + </span>1
<span>5 = 2·2 + </span>1
<span>2 = 1·2 + </span>0
<span>Последний множитель перед 2 равный </span>1<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>1011011
- в восьмеричную
<span>Делим число на 8 и выписываем остатки</span>
<span>91 = 11·8 + </span>3
<span>11 = 1·8 + </span>3
<span>Последний множитель перед 8 равный </span>1<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>133
- в шестнадцатиричную
<span>Делим число на 16 и выписываем остатки</span>
<span>91 = 5·16 + </span>11<span> (11 записывается как </span>B<span>)</span>
<span>Последний множитель перед 16 равный </span>5<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>5B
52
- в двоичную
<span>Делим число на 2 и выписываем остатки</span>
<span>52 = 26·2 + </span>0
<span>26 = 13·2 + </span>0
<span>13 = 6·2 + </span>1
<span>6 = 3·2 + </span>0
<span>3 = 1·2 + </span>1
<span>Последний множитель перед 2 равный </span>1<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>110100
- в восьмеричную
<span>Делим число на 8 и выписываем остатки</span>
<span>52 = 6·8 + </span>4
<span>Последний множитель перед 8 равный </span>6<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>64
- в шестнадцатиричную
<span>Делим число на 16 и выписываем остатки</span>
<span>52 = 3·16 + </span>4
<span>Последний множитель перед 16 равный </span>3<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>34
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var f:=OpenWrite('phones.txt');
var n:=ReadLnInteger('Количество номеров: ');
Writeln('Вводите номера телефонов в формате 8(xxx)xxx-xx-xx;');
var s:string;
for var i:=1 to n do begin
s:=ReadLnString(IntToStr(i)+':');
Writeln(f,s)
end;
f.Close;
var s1:=ReadLines('phones.txt').ToArray;
Writeln('Содержимое файла');
s1.Println(NewLine);
f:=OpenWrite('phones.txt');
foreach var e in s1 do begin
s:=e.Where(x->x in ['0'..'9']).JoinIntoString('');
Writeln(f,s)
end;
f.Close;
Writeln('Новое содержимое файла');
ReadLines('phones.txt').PrintLn(NewLine);
end.
<u><em>Тестовое решение:</em></u>
Количество номеров: 3
Вводите номера телефонов в формате 8(xxx)xxx-xx-xx;
1: 8(999)111-22-33
2: 8(888)222-33-44
3: 8(777)333-44-55
Содержимое файла
8(999)111-22-33
8(888)222-33-44
8(777)333-44-55
Новое содержимое файла
89991112233
88882223344
87773334455
Var
st,sr,kd:integer;
begin
readln(st,sr,kd);
if (kd>=st*20+sr*5) then writeln(kd-st*20-sr*5)
else writeln('Анне не хватит денег');
end.
