<span>1</span>⁷<span>1</span>⁶<span>0</span>⁵<span>0</span>⁴<span>1</span>³<span>1</span>²<span>0</span>¹<span>1</span>⁰ = 2⁷ + 2⁶ + 2³+2² +2⁰ = 128 + 64 + 8 + 4 + 1 =205₁₀
var a: array [1..10] of integer;
i: integer; ss: real; cc: byte;
begin
ss:=0;
cc:=0;
for i:=1 to 10 do begin
write('A[',i,'] = ');
readln(a[i]);
if a[i]>5 then begin
ss:=ss+a[i];
inc(cc);
end;
end;
writeln;
writeln('Среднее арифметическое = ',ss/cc);
end.
round округляет до ближайшего целого 76/10=7,6 =8
76/8=9,5
а= а(mod(8))=0.5
вывод 5
var x, L, M: integer;
begin
readln(x);
L := 0;
M := 0;
while x > 0 do
begin
L := L + 1;
if x mod 2 = 0 then
M := M + (x mod 10) div 2;
x := x div 10;
end;
writeln(L);
writeln(M);
end.