100 в десятичной = 1100100 в двоичной.
Ответ: 3 единицы
<span>А. for i:=-5 to 5 do тело цикла; - 11 раз
В. for i:=6 to 2 do тело цикла; - 0 или 1 раз
С.for i:= 3to 3 do тло цикла ; - 1 раз
D. for i:=3 downto 4 do тело цикла - 1 или 0 раз
E. for i := 3 downto 1 do - 3 раза</span>
2.
123(10) → 1111011(2)
123(10) → 173(8)
123(10) → 7B(16)
456(10) → 111001000(2)
456(10) → 710(8)
456(10) → 1C8(16)
3.
100011(2) → 43(8)
100011(2) → 35(10)
100011(2) → 23(16)
101001011(2) → 513(8)
101001011(2) → 331(10)
101001011(2) → 14B(16)
1110010001(2) → 1621(8)
1110010001(2) → 913(10)
1110010001(2) → 391(16)
4.
54321(8) → 101100011010001(2)
54525(8) → 101100101010101(2)
777(8) → 111111111(2)
1AB(16) → 110101011(2)
A1B(16) → 101000011011(2)
E2E4(16) → 1110001011100100(2)
E7E5(16) → 1110011111100101(2)
function Pow(A, St: Integer) : Integer - объявляется функция Pow, которая принимает 2 аргумента A и St типа integer, а также сама функция возвращает значение integer
Далее объявляется переменная I типа Integer
begin - начало тела функции
Result := 1; - переменной Result присваивается значение 1
Далее идёт ветвление:
Если St = 0 , то переменной Result присваивается значение 1
В противном случае идёт цикл от I = 1 до St, где каждый шаг увеличивает переменную Result в A раз
словом end; заканчивается тело функции
Короче говоря, данная функция возводит число A в степень St
var a,b,c:string;
begin
readln(a);
readln(b);
if (pos(b,a))<>0 then writeln('est simvol');
c:=copy(a,1,pos(' ',a)-1);
writeln(c);
writeln(copy(a,pos(' ',a)+1,length(a)-pos(' ',a)+1),' ',copy(a,1,pos(' ',a)-1));
end.
