<h3>Если число цифр нечетное, среднюю цифру не учитываем.</h3><h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (n, S) := (ReadInteger, 0);
loop Trunc(Log10(n) + 1) div 2 do
begin
S += n mod 10;
n := n div 10
end;
S.Println
end.
<h2>12345678</h2><h2>26 </h2>
1072->20603171->61431000->0011 1110 1000
using System;
namespace ConsoleApp11
{
class Program
{
static void Main(string[] args)
{
Console.Write("Введите N: ");
int N = int.Parse(Console.ReadLine());
double S = 0;
for (int i = 0; i < N; i++)
S += Math.Pow(-1, i) * (1 / Math.Pow(2, i));
Console.WriteLine("Ответ: " + S);
Console.ReadKey();
}
}
}
Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>