Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Пальма
0 / 0 / 0
Регистрация: 22.12.2010
Сообщений: 8
1

Для заданных натуральных n и a1,...an определить количество членов являющихся нечетными числами

01.01.2011, 22:36. Просмотров 579. Ответов 5
Метки нет (Все метки)

Для заданных натуральных n и a1,...an определить количество членов являющихся нечетными числами и одновременно имеющих четные номера.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.01.2011, 22:36
Ответы с готовыми решениями:

Определить количество членов ak последовательность a1,...,an: являющихся нечетными числами
Дано натуральное числа n,a1,...,an.Определить количество членов ak последовательность a1,...,an:...

В массиве определить количество членов, имеющих чётные порядковые номера и являющихся нечетными числами
В заданом масиве определить кол-во всех членов имеющих чётные порядковые номера и являющихся...

В массиве А (6,4) определить количество элементов, являющихся нечетными числами
В массиве А (6,4) определить количество элементов, являющихся нечетными числами. program z3;...

Определить количество членов последовательности, которые являются нечетными числами
!!!

Определить количество членов последовательности, являющихся нечётными числами, кратных 3 и некратных 5
Список задач 1. Даны натуральные числа n, A1, ..., An. Определить количество членов Ak...

5
maladoy
113 / 85 / 56
Регистрация: 09.01.2009
Сообщений: 209
01.01.2011, 22:49 2
Pascal
1
2
3
4
k:=0;
for i:=1 to n do
if odd(a[i]) then inc(k);
writeln(k);
0
Mysterious Light
Эксперт по математике/физике
4015 / 1976 / 403
Регистрация: 19.07.2009
Сообщений: 3,000
Записей в блоге: 21
01.01.2011, 22:52 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var n: byte; a: byte; {переменные входа}
var z, k: byte; {счетчик цикла и количества нужных членов}
begin
readln(n);
k:=0; {онуляем счетчик, если ничего не найдем, то будет 0}
for z:=1 to n do
    begin
         read(a);
         if (a mod 2 == 1) {если z-й член последовательности нечётный}
         and (z mod 2 == 0) {и его номер четный}
         then inc(k); {увеличиваем на один количество найденных членов}
    end;
write(k);
readln;
end.
0
Пальма
0 / 0 / 0
Регистрация: 22.12.2010
Сообщений: 8
01.01.2011, 22:56  [ТС] 4
а без массива это получиться рассписать?
0
maladoy
113 / 85 / 56
Регистрация: 09.01.2009
Сообщений: 209
01.01.2011, 23:08 5
Pascal
1
2
3
4
5
6
7
i:=1;k:=0;
while i<=n do
begin
readln(a);
if odd(a[i]) then inc(k);
end;
writeln(k);
0
Пальма
0 / 0 / 0
Регистрация: 22.12.2010
Сообщений: 8
01.01.2011, 23:11  [ТС] 6
0
01.01.2011, 23:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.01.2011, 23:11

В одномерном массиве из натуральных чисел определить количество элементов, являющихся простыми числами
Ребята, помогите решить практическую. 1. В одномерном массиве из натуральных чисел определить...

Дан массив А, состоящий из n натуральных чисел. Определите количество элементов, являющихся простыми числами
Дан массив А, состоящий из n натуральных чисел. Определите количество элементов, являющихся...

Определить количество членов последовательности, аn являющихся квадратами четных чисел
program pr1_9; uses crt; var mas: array of integer ; n,i,j,k: integer; begin clrscr; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru