Найти члены последовательности, являющиеся удвоенными нечетными числами, и определить их количество

@2243 · Регистрация: 20.12.2009

Студворк — интернет-сервис помощи студентам

Даны натуральные числа n, a1,…,an, где n≤1500. Найти члены ak последовательности a1,…,an, являющиеся удвоенными нечетными числами, и определить их количество.

помогите плс решить данную задачу...

я думал думал..и не могу понять что значит удвоенно нечетное число? это нечетное число *2 ? тогда оно получается четным? правильно?

@mamedovvms · 20.12.2009, 19:52

Сообщение от 2243

тогда оно получается четным? правильно?

да ты прав, но например 6 как раз такое, а вот 4 не такое

@pikusfikus · 20.12.2009, 19:56

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
a:array[1..100] of integer;
n,i,k,s:integer;
begin
writeln('vvedit n');
readln(n);
for i:=1 to n do
read(a[i]);
writeln('massiv');
write('[');
for i:=1 to n do
write(a[i],' ');
writeln(']');
for i:=1 to n do
if odd(a[i] div 2) then inc(k);
writeln(k);
end.

@mamedovvms · 20.12.2009, 19:57

pikusfikus,

Сообщение от 2243

n≤1500

на это вам все равно???

@pikusfikus · 20.12.2009, 19:59

Сообщение от mamedovvms

pikusfikus,

на это вам все равно???

пусть аффтар сам перепишет одну строчку,думаю такое он умеет )

@2243 · 20.12.2009, 20:00 **[ТС]**

Сообщение от mamedovvms

pikusfikus,

на это вам все равно???

к сожалению нет((( я бы был очн признателен если бы вы учитывали этот момент..потому что это последняя практическая а времени на изучение массивов катострофически нет

но все равно огромное спасибо за предоставленный кусок программы_)

@pikusfikus · 20.12.2009, 20:01

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
a:array[1..1500] of integer;
n,i,k,s:integer;
begin
writeln('vvedit n');
readln(n);
writeln('massiv');
write('[');
for i:=1 to n do begin
a[i]:=random(1000);
write(a[i],' ');
writeln(']');
end;
for i:=1 to n do
if odd(a[i] div 2) then inc(k);
writeln(k);
end.

Добавлено через 19 секунд
вот целая )

Добавлено через 20 секунд
вам надо рандом ввод или ручной?

@mamedovvms · 20.12.2009, 20:04

Сообщение от pikusfikus

if odd(a[i] div 2) then inc(k);

а если будет число 7 то оно подойдет под ваше условие, так что задача в корне не правильна

[1..1500]

вы думаете у вас в паскале так будет работать??

@2243 · 20.12.2009, 20:04 **[ТС]**

помоему вводить вручную такое кол-во чисел нереал) поэтому думаю лучше прибегнуть к помощи рандома)) спасибо за такой оперативный ответ...сегодня после 5 пар совсем голова не варит((

Добавлено через 33 секунды

Сообщение от mamedovvms

а если будет число 7 то оно подойдет под ваше условие, так что задача в корне не правильна

ваши предложения?

@mamedovvms · 20.12.2009, 20:06

ща 5 минут , буду использовать код уважаемого pikusfikus

@pikusfikus · 20.12.2009, 20:12

[1..1500] в АБС работает

Добавлено через 1 минуту

Pascal
1
2
if not odd(a[i]) then
if odd(a[i] div 2) then inc(k);

Добавлено через 37 секунд

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
a:array[1..1500] of integer;
n,i,k,s:integer;
begin
writeln('vvedit n');
readln(n);
writeln('massiv');
write('[');
for i:=1 to n do begin
a[i]:=random(1000);
write(a[i],' ');
writeln(']');
end;
for i:=1 to n do
if not odd(a[i]) then
if odd(a[i] div 2) then inc(k);
end.

@mamedovvms · 20.12.2009, 20:14

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
var
a:array[1..50,1..30] of integer;
n,i,j,k,s:integer;
begin
writeln('vvedit n');
readln(n);
j:=1;
k:=1;
for i:=1 to n do begin
begin
a[j,k]:=random(1000);
write(a[j,k],' ');
if k=30 then 
 begin
   k:=0;
   inc(j);
 end;
inc(k);
end;
 
j:=1;
k:=1;
for i:=1 to n do
begin
if (Frac(a[j,k]/2)=0)and(odd((a[j,k] mod 2)) then 
writeln(a[j,k]);
if k=30 then
 begin
   k:=0;
   inc(j);
 end;
inc(k);
end;
readln;
 
end.

@2243 · 20.12.2009, 20:21 **[ТС]**

Сообщение от mamedovvms

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
var
a:array[1..50,1..30] of integer;
n,i,j,k,s:integer;
begin
writeln('vvedit n');
readln(n);
j:=1;
k:=1;
for i:=1 to n do begin
begin
a[j,k]:=random(1000);
write(a[j,k],' ');
if k=30 then 
 begin
   k:=0;
   inc(j);
 end;
inc(k);
end;
 
j:=1;
k:=1;
for i:=1 to n do
begin
if (Frac(a[j,k]/2)=0)and(odd((a[j,k] mod 2)) then 
writeln(a[j,k]);
if k=30 then
 begin
   k:=0;
   inc(j);
 end;
inc(k);
end;
readln;
 
end.

почему то этот варинт выводит только 0 О.о

@pikusfikus · 20.12.2009, 20:26

Сообщение от mamedovvms

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
var
a:array[1..50,1..30] of integer;
n,i,j,k,s:integer;
begin
writeln('vvedit n');
readln(n);
j:=1;
k:=1;
for i:=1 to n do begin
begin
a[j,k]:=random(1000);
write(a[j,k],' ');
if k=30 then 
 begin
   k:=0;
   inc(j);
 end;
inc(k);
end;
 
j:=1;
k:=1;
for i:=1 to n do
begin
if (Frac(a[j,k]/2)=0)and(odd((a[j,k] mod 2)) then 
writeln(a[j,k]);
if k=30 then
 begin
   k:=0;
   inc(j);
 end;
inc(k);
end;
readln;
 
end.

ваше решения абсолютно неверно,скобки недоставлено ,енд; пропущен,и выводит только 1 число,так как в вас в умове if k=30 а к всегда 1

Добавлено через 51 секунду
и выводить надо не числа,а количество

Добавлено через 45 секунд
Если у вас Паскаль АБС то этот код рабочий

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
a:array[1..1500] of integer;
n,i,k,s:integer;
begin
writeln('vvedit n');
readln(n);
writeln('massiv');
write('[');
for i:=1 to n do begin
a[i]:=random(1000);
write(a[i],' ');
end;
writeln(']');
for i:=1 to n do
if not odd(a[i]) then
if odd(a[i] div 2) then inc(k);
writeln(k);
end.

@2243 · 20.12.2009, 20:31 **[ТС]**

Сообщение от pikusfikus

ваше решения абсолютно неверно,скобки недоставлено ,енд; пропущен,и выводит только 1 число,так как в вас в умове if k=30 а к всегда 1

Добавлено через 51 секунду
и выводить надо не числа,а количество

Добавлено через 45 секунд
Если у вас Паскаль АБС то этот код рабочий

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
a:array[1..1500] of integer;
n,i,k,s:integer;
begin
writeln('vvedit n');
readln(n);
writeln('massiv');
write('[');
for i:=1 to n do begin
a[i]:=random(1000);
write(a[i],' ');
end;
writeln(']');
for i:=1 to n do
if not odd(a[i]) then
if odd(a[i] div 2) then inc(k);
writeln(k);
end.

благодарю) вроде работает) только у меня пару вопросов..что делает оператор odd ? и что мы задаем под n ?

@pikusfikus · 20.12.2009, 20:34

n - количество чисел ,то есть количество элементов ,odd -проверка на нечётность not odd -проверка на чётность
odd-->>>a[i] mod 2<>0
not odd-->>>a[i] mod 2=0

@2243 · 20.12.2009, 20:36 **[ТС]**

Сообщение от pikusfikus

n - количество чисел ,то есть количество элементов ,odd -проверка на нечётность not odd -проверка на чётность
odd-->>>a[i] mod 2<>0
not odd-->>>a[i] mod 2=0

ну а с точки выполнения программы что лучше использовать мод или одд?) просто боюсь на доп вопрос нарпошусь в этой строчке)

@knoxville177 · 20.12.2009, 20:39

1. Подсчитать количество цифр в числе, которое меньше 1 ( Используя Оператор Repeat

2. Дано натуральое число N и массив целых чисел a1,..an Выяснить имеется в массиве a1,..,an хотя бы одно нечетное отрицательное число и поределить его местонахождение в массиве. ( Через одномерный массив)

3. Дана вещественная матрица A (N.M). Составить программу нахождения максимального элемента матрицы и выделения его местоположения. ( Через двухмерный массив )

заранее огромное спасибо!

@pikusfikus · 20.12.2009, 20:41

для новичка mod,а так то odd

@mamedovvms · 20.12.2009, 20:43

ну вам виднее

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses crt;
var
a:array[1..50,1..30] of integer;
n,i,j,k,s:integer;
begin
clrscr;
writeln('vvedit n');
readln(n);
j:=1;
k:=1;
for i:=1 to n do
begin
a[j,k]:=random(1000);
write(a[j,k],' ');
if k=30 then
 begin
   k:=0;
   inc(j);
 end;
inc(k);
end;
writeln;
j:=1;
k:=1;
s:=0;
for i:=1 to n do
begin
if (Frac(a[j,k]/2)=0)and(odd(a[j,k] div 2)) then
inc(s);
if k=30 then
 begin
   k:=0;
   inc(j);
 end;
inc(k);
end;
writeln(s);
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@2243 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 16

	Найти члены последовательности, являющиеся удвоенными нечетными числами, и определить их количество 20.12.2009, 19:49. Показов 1842. Ответов 20 Метки нет (Все метки) Даны натуральные числа n, a1,…,an, где n≤1500. Найти члены ak последовательности a1,…,an, являющиеся удвоенными нечетными числами, и определить их количество. помогите плс решить данную задачу... я думал думал..и не могу понять что значит удвоенно нечетное число? это нечетное число *2 ? тогда оно получается четным? правильно? 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	20.12.2009, 20:06
	ща 5 минут , буду использовать код уважаемого pikusfikus 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	20.12.2009, 20:34
	n - количество чисел ,то есть количество элементов ,odd -проверка на нечётность not odd -проверка на чётность odd-->>>a[i] mod 2<>0 not odd-->>>a[i] mod 2=0 0

@knoxville177 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 4
	20.12.2009, 20:39
	1. Подсчитать количество цифр в числе, которое меньше 1 ( Используя Оператор Repeat 2. Дано натуральое число N и массив целых чисел a1,..an Выяснить имеется в массиве a1,..,an хотя бы одно нечетное отрицательное число и поределить его местонахождение в массиве. ( Через одномерный массив) 3. Дана вещественная матрица A (N.M). Составить программу нахождения максимального элемента матрицы и выделения его местоположения. ( Через двухмерный массив ) заранее огромное спасибо! 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	20.12.2009, 20:41
	для новичка mod,а так то odd 0