<span>Переводы
б) 057222
а) 101111010010010
в)OFA5 и 1210 - 04BA
</span>
Монеты номиналом 1, 2, 4 и 5 рублей.
1=1
2=2
3=2+1
4=2+2
5=5
6=5+1
7=5+2
8=4+4
9=5+4
10=5+5
Переведем А7^16 и 100^3 в десятеричную. А^16 = 10 следовательно, А7^16 = (10*16^1)+(7*16^0)=167 100^3=(1*3^2)+(0*3^1)+(0*3^0)=9 значит, у Людочки на 9 меньше , чем у Эллочки. Отсюда получаем 167-9=158 (это мы получили в десятеричной) далее просто переводим в нужную систему счисления. 10011110^2 236^8 9Е<span>^16</span>
1)
var s:string; i:integer;
begin
readln(s);
for i:=1 to length(s) do
if (i mod 2=1)and(s[i]='н') then writeln(i,' - н');
end.
Пример:
Дано предложение. Вывести "столбиком" все его буквы н, стоящие на нечетных местах
3 - н
53 - н
67 - н
2)
var s,s1,s2:string;
begin
s:='вертикаль';
s1:=s[4]+s[5]+s[3];
s2:=s[1]+s[2]+s[4]+s[6]+s[7];
writeln(s1,' ',s2);
end.
Результат:
тир ветка
3. Замечание. Предполагается, что слова в предложениях отделяются друг от друга одним пробелом.
3 а)
var s:string; i,k:integer;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
begin
if (s[i]='а')and(k=0) then
begin s[i]:='о'; k:=1; end;
if s[i]=' ' then k:=0;
end;
writeln(s);
end.
Пример:
Напечатать все его слова, предварительно преобразовав каждое из них по правилу
Нопечатать все его слово, предворительно преоброзовав кождое из них по провилу
3 б)
var s,sl,s_new:string; i:integer;
begin
readln(s);
s:=s+' ';
s_new:=''; sl:='';
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i]
else begin
while pos(s[i-1],sl)>0 do delete(sl,pos(s[i-1],sl),1);
s_new:=s_new+sl+s[i-1]+' ';
sl:='';
end;
writeln(s_new);
end.
Пример:
нечетное предложение больше четного
нчтное прдложние больше четнго