помогите пожалуйста!
и будем получать средние арифметические чисел стоящих в ней рядом. В результате получим последовательность 4, 6 , 9, 12, 15, 18, 21, 26, 30 ... Ваша задача получить N - ый член последовательности
помогите её решить, плиз!!!
я код написал, НО он пишет "несоответствие типов"
приведите пожалуйста правильное решение,буду премного благодарен
Показывай свое, будем делать из него правильное.:)
я могу написать отрывок из кода(поиск обычных чисел и расчёт средне арифм. значений....во втором у меня 100% ошибка, т.к я не помню как переводить элемент массива к числовому значению)
for i:=3 to 10000 do begin
for j to 10000 do
if (i mod j>0) and (i<>j) then begin s:=s+1; m:=m+i;end;
end;
for i:=1 to s-1 do
a:=(m+m[i+1])/2;
a[n]:=(a[n]+a[n-1]+a[n+1])/2;
НО ЭТО ТОЧНО НЕПРАВИЛЬНО)))
N,i,j,k:integer;
easy: array [1..499] of integer;
Begin
Readln(n);
For i:=1 to n do
Begin
For j:=2 to i-1 do if not(i mod j = 0) then
Begin
Inc(k);
easy[k]:=i;
End;
End;
For i:=1 to k-1 do
Begin
Writeln((easy + easy[i+1])/2);
End;
Readln;
End.