Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

помогите пожалуйста!

75K
24 октября 2011 года
devil-hunter
2 / / 24.10.2011
Простым называют число, которое имеет только 2 делителя - 1 и само себя. Среди простых чисел только самое маленькое число 2 - чётное. Возьмём возрастающёю последовательность состоящую из нечётных простых чисел 3,5,7,11,13,17,19,23,...
и будем получать средние арифметические чисел стоящих в ней рядом. В результате получим последовательность 4, 6 , 9, 12, 15, 18, 21, 26, 30 ... Ваша задача получить N - ый член последовательности

помогите её решить, плиз!!!
я код написал, НО он пишет "несоответствие типов"
приведите пожалуйста правильное решение,буду премного благодарен
278
24 октября 2011 года
Alexander92
1.1K / / 04.08.2008
Показывай свое, будем делать из него правильное.:)
75K
24 октября 2011 года
devil-hunter
2 / / 24.10.2011
у меня 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;


НО ЭТО ТОЧНО НЕПРАВИЛЬНО)))
75K
28 октября 2011 года
sphex
7 / / 27.10.2011
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.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог