var G,S,L:integer;
BEGIN
write('Количество горилл = ');
readln(G);
write('Количество шимпанзе = ');
readln(S);
write('Количество лемуров = ');
readln(L);
writeln(G*3+S*2+L);
end.
Ответ:
1011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ = 11₁₀
11₁₀ = 3*8⁰ + 1*8¹ = 13₈
11₁₀ = 11*16⁰ = B₁₆
255₈ = 5*8⁰ + 5*8¹ + 2*8² = 173₁₀
173₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10101101₂
173₁₀ = 13*16⁰ + 10*16¹ = AD₁₆
15₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ = 1111₂
15₁₀ = 7*8⁰ + 1*8¹ = 17₈
15₁₀ = 15*16⁰ = F₁₆
CC₁₆ = C*16⁰ + C*16¹ = 204₁₀
204₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11001100₂
204₁₀ = 4*8⁰ + 1*8¹ + 3*8² = 314₈
Задача №1
//Pascal
var i,a,s,k:integer;
begin
s:=0;k:=0;
repeat
readln(a);
if a>12 then begin
k:=k+1;
s:=s+a;
end;
until a=0;
if k<>0 then writeln(s/k)
else writeln('Таких чисел нет');
end.
Задача №2
var
n,p: integer;
begin
p:=1;
readln(n);
while n > 0 do
begin
write(' ', n mod 10);
if n mod 10 < 4 then p:=p * (n mod 10);
n := n div 10
end;
if p<>1 then writeln('Произведение цифр числа ', p)
else writeln('Нет решения');
end.
<em>var a, b, c, i, n, m, j :integer; </em>
<em>s, p, q: string;</em>
<em>begin</em>
<em>read (s);</em>
<em>a:=1;for i:=1 to length (s) do </em>
<em> begin </em>
<em> if s[i]=' ' then </em>
<em> begin </em>
<em> b:=i-a; </em>
<em> c:=0; </em>
<em> p:=copy(s,a,b); </em>
<em> a:=i+1; for j:=1 to length (p) do </em>
<em> if (p[j]<>'у') and (p[j]<>'У') and (p[j]<>'е') and (p[j]<>'Е') and (p[j]<>'ы') and (p[j]<>'Ы') and (p[j]<>'а') and (p[j]<>'А') and (p[j]<>'о') and (p[j]<>'О') and (p[j]<>'э') and (p[j]<>'Э') and (p[j]<>'я') and (p[j]<>'Я') and (p[j]<>'и') and (p[j]<>'И') and (p[j]<>'') and (p[j]<>'Ю') then inc(c); </em>
<em> if c>=m then </em>
<em> begin </em>
<em> m:=c; </em>
<em> q:=p; </em>
<em> end; </em>
<em> end; </em>
<em> end; </em>
<em>a:=length (s); </em>
<em>while s[a]<>' ' do </em>
<em> begin </em>
<em> delete (s,a,1); </em>
<em> a:=a-1; </em>
<em> end;</em>
<em> write (s, q); </em>
<em>end.</em><span><em> </em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>