помогите пожалуйста!
Простым называют число, которое имеет только 2 делителя - 1 и само себя. Среди простых чисел только самое маленькое число 2 - чётное. Возьмём возрастающёю последовательность состоящую из нечётных простых чисел 3,5,7,11,13,17,19,23,...
и будем получать средние арифметические чисел стоящих в ней рядом. В результате получим последовательность 4, 6 , 9, 12, 15, 18, 21, 26, 30 ... Ваша задача получить N - ый член последовательности
помогите её решить, плиз!!!
я код написал, НО он пишет "несоответствие типов"
приведите пожалуйста правильное решение,буду премного благодарен
и будем получать средние арифметические чисел стоящих в ней рядом. В результате получим последовательность 4, 6 , 9, 12, 15, 18, 21, 26, 30 ... Ваша задача получить N - ый член последовательности
помогите её решить, плиз!!!
я код написал, НО он пишет "несоответствие типов"
приведите пожалуйста правильное решение,буду премного благодарен
Показывай свое, будем делать из него правильное.:)
у меня 7-ка, и я работаю через дос бокс...а там сохранить файл не выходит(я бы со своего старого компа ввёл, где стоит хп,НО мне нужно решение СРОЧНО!)
я могу написать отрывок из кода(поиск обычных чисел и расчёт средне арифм. значений....во втором у меня 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;
НО ЭТО ТОЧНО НЕПРАВИЛЬНО)))
я могу написать отрывок из кода(поиск обычных чисел и расчёт средне арифм. значений....во втором у меня 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;
НО ЭТО ТОЧНО НЕПРАВИЛЬНО)))
Var
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.
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.