5 вправо 25 вперёд 30 вправо 35
Повторила)
Ответ:
Объяснение:
T i m e
54 69 6D 65
01010100₂ - T
01101001₂ - i
01101101₂ - m
01100101₂ - e
54₁₆ = 4*16⁰ + 5*16¹ = 84₁₀
84₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ = 1010100₂
69₁₆ = 9*16⁰ + 6*16¹ = 105₁₀
105₁₀ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1101001₂
6D₁₆ = D*16⁰ + 6*16¹ = 109₁₀
109₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1101101₂
65₁₆ = 5*16⁰ + 6*16¹ = 101₁₀
101₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1100101₂
Var i,x,k,s:integer;
function Sum(x:integer):integer;
var
t:string;
i:integer;
begin
s:=0;
t:=IntToStr(x);
for i:=1 to length(t) do s:=s+StrToInt(t[i]);
result:=s
end;
function Kol(x:integer):integer;
var t:string;
begin
t:=IntToStr(x);
result:=length(t)
end;
begin
for i:=1 to 5 do
begin
write('Введите число ',i,': ');
readln(x);
k:=Kol(x);
s:=Sum(x);
writeln('Количество цифр ',k,'; сумма цифр ',s)
end
<span>end.</span>