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

@Regvert · Регистрация: 24.04.2021

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

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

@ValentinNemo · 26.04.2021, 07:24

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

Даны натуральные числа n, a1, . . . ,an .

Каким способом они заданы? Вводить вручную или генератором случайных чисел?
Какой компонент для ввода-вывода использовать? StringGrid или Memo?

@Аватар · 26.04.2021, 11:09

Да не нужен там не стринггрид, ни мемо, ни даже просто массив. Ввод в цикле, нарасчивать счетчик если введено нечетное число и забывать об нем )

@D1973 · 26.04.2021, 11:31

Аватар, все так... Но вот показать эту последовательность, таки, надо, чтобы полученный ответ можно было визуально проверить. Хотя, в самом деле, неважно где и как, хоть в метку выводить...

@Аватар · 26.04.2021, 12:15

D1973
Все так, но формально, согласно представленному ТЗ, этого не надо, а на нет и суда нет )

@D1973 · 26.04.2021, 12:28

Сообщение от Аватар

но формально, согласно представленному ТЗ, этого не надо

Так что я ответственно заявляю: задание я выполнил, ответ - 8! И пусть докажут, что это не так!

@Аватар · 26.04.2021, 12:52

Печально. Так это составителю ТЗ в минус )

@ValentinNemo · 26.04.2021, 21:30

На главной форме разместите компонент TLabel.
В обработчике события "OnActivate" разместить такой код.
Попробуйте, может заработает.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.FormActivate(Sender: TObject);
var
  n,a,i,k: integer;
begin
  k:= 0;
  repeat
   if not TryStrToInt(InputBox('Ввод данных','Введите количество членов последовательности:','0'),n) then
     MessageDlg('Некорректный ввод данных! Попытайтесь еще раз.',mtError,[mbOk],0)
   else
     break;
  until false;
  for i:= 1 to n do
    begin
      repeat
        if not TryStrToInt(InputBox('Ввод данных','Введите значение члена последовательности:','0'),a) then
          MessageDlg('Некорректный ввод данных! Попытайтесь еще раз.',mtError,[mbOk],0)
        else
          break;
      until false;
      if odd(a) then
        inc(k);
    end;
  Label1.Caption:= 'Количество нечетных членов последовательности: ' + intToStr(k);
end;

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Regvert 2 / 2 / 0 Регистрация: 24.04.2021 Сообщений: 36

	Определить количество членов последовательности, являющихся нечетными числами. 25.04.2021, 22:08. Показов 1715. Ответов 7 Метки c++ (Все метки) Даны натуральные числа n, a1, . . . ,an . Определить количество членов ak последовательности a1, . . . , an: являющихся нечетными числами. 0

@Аватар 5393 / 1465 / 513 Регистрация: 31.05.2012 Сообщений: 5,153
	26.04.2021, 11:09
	Да не нужен там не стринггрид, ни мемо, ни даже просто массив. Ввод в цикле, нарасчивать счетчик если введено нечетное число и забывать об нем ) 0

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,423 Записей в блоге: 3
	26.04.2021, 11:31
	Аватар, все так... Но вот показать эту последовательность, таки, надо, чтобы полученный ответ можно было визуально проверить. Хотя, в самом деле, неважно где и как, хоть в метку выводить... 0

@Аватар 5393 / 1465 / 513 Регистрация: 31.05.2012 Сообщений: 5,153
	26.04.2021, 12:15
	D1973 Все так, но формально, согласно представленному ТЗ, этого не надо, а на нет и суда нет ) 0

@Аватар 5393 / 1465 / 513 Регистрация: 31.05.2012 Сообщений: 5,153
	26.04.2021, 12:52
	Печально. Так это составителю ТЗ в минус ) 0