Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
KinjongUn
0 / 0 / 0
Регистрация: 25.10.2019
Сообщений: 16
1

Одна нечетная цифра

26.03.2020, 14:33. Просмотров 742. Ответов 1

Строка разбивается на элементы по 5 символов в каждом.
Найти сумму индексов элементов, содержащих только одну нечетную цифру.

input
KDSFJHGLKDJGHLSUIRH5HGUHG58HGLSHDJHTI8GLSRH984GKDJ
output
19
Я тупой: однотипные задания решить не могу. Помогите пж
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2020, 14:33
Ответы с готовыми решениями:

Подсчитать количество n-значных натуральных чисел, в которых сумма цифр нечетная, а младшая цифра - парная.
Помогите пожалуйста с задачой ,очень прошу !

Удалить из него все элементы, в которых последняя цифра нечетная, а само число делится на удвоенную последнюю цифру.
Здравствуйте, помогите с задачей, не могу разобраться. Дан массив целых чисел (n = 14),...

Найти числа, в которых хоть одна цифра 3
В Берляндии снова президентские выборы. В рамках предвыборной кампании "Не будет жизни вам пока..."...

Определить входит ли в произвольное число x хотя бы одна цифра 7
Определить входит ли в произвольное число x хотя бы одна цифра 7. Если да, то заменить каждую цифру...

1
Puporev
Модератор
59482 / 44875 / 30982
Регистрация: 18.05.2008
Сообщений: 107,675
26.03.2020, 15:14 2
Лучший ответ Сообщение было отмечено KinjongUn как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var s:string;
    m:array[1..100] of string[5];
    n,i,j,k,sm:integer;
begin
s:='KDSFJHGLKDJGHLSUIRH5HGUHG58HGLSHDJHTI8GLSRH984GKDJ';
n:=length(s) div 5;
sm:=0;
for i:=1 to n do
 begin
  m[i]:=copy(s,(i-1)*5+1,5);
  k:=0;
  for j:=1 to 5 do
  if m[i][j] in ['1','3','5','7','9'] then inc(k);
  if k=1 then inc(sm,i);
 end;
writeln(sm)
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.03.2020, 15:14

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Считать и напечатать то трехзначное число, в котором повторяется одна цифра
Считать и печатать то трехзначное в котром повторяется одна цифра

Удалить из массива все элементы, в которых первая цифра нечетная
Надеюсь кто-то сможет помочь. Дан массив целых чисел (n=15), заполненный случайным образом числами...

Подсчитать количество n-значных чисел Фибоначчи, в которых старшая цифра нечетная
Помогите решить на языке Pascal следующие задачи: 1. Подсчитать количество n-значных чисел...

Подсчитать количество n- значных натуральных чисел, в которых сумма цифр нечетная, а младшая цифра – четная
Подсчитать количество n- значных натуральных чисел, в которых сумма цифр нечетная, а младшая цифра...


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

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

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