var a,a1,a2,a3 : integer;
begin
readln(a);
a1:=a div 100;
a2:=(a mod 100) div 10;
a3:=(a mod 100) mod 10;
writeln(a1+a2+a3);
end.
а - само число, а1-число сотен, а2-число десятков, а3-число единиц
368+36008+3600008+360000008 = 363636392 (В десятеричной)
363636392 = 15АСА6А8 (в шестнадцатеричной)
15АСА6А8 = 1
5
6
8
А
А
А
<span>С в порядке возростания</span>
//PascalABC.NET v3.3 1633
const n = 15;
var arr: array [1..n] of integer;
begin
for var i:=1 to n do
arr[i]:=random(-5,5);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to n do
if arr[i] > 0 then
count += 1;
writeln('Количество положительных элементов: '+count);
end.
If(a[i] div 100 = 0) and (a[i] div 10 <> 0) then s:= s+a[i];
Ответ:
429₁₀ = 110101101₂ = 655₈ = 1AD₁₆
10011101₂ = 157₁₀
734₈ = 476₁₀
27E₁₆ = 638₁₀
Объяснение:
429₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 1*2⁸ = 110101101₂
429₁₀ = 5*8⁰ + 5*8¹ + 6*8² = 655₈
429₁₀ = 13*16⁰ + 10*16¹ + 1*16² = 1AD₁₆
10011101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 157₁₀
734₈ = 4*8⁰ + 3*8¹ + 7*8² = 476₁₀
27E₁₆ = 14*16⁰ + 7*16¹ + 2*16² = 638₁₀