Var
a: array[1..10] of real;
i: integer;
b: real;
begin
for i := 1 to 10 do
begin
Write('Введите ', i, '-ый элемент массива ');
Readln(a[i]);
b := b + a[i];
end;
Writeln('Сумма равна ',b);
<span>end.</span>
Var k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103…149150 = ',n);
end.
Пример:
<span>k = (k кратно 3) 27
27-я цифра последовательности 101102103…149150 = 9</span>
Всё просто каждое получившаеся число поделите на 2. А потом в конце с конча до начала запишите числа. Напиример:110:2 равно55 также 55 делим на 2 и так до конца пока не получится 0 а потом с конца до начала запишите остатки!
А где оно ??я его не вижу !!!!!