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

Сумма индексов

26.03.2020, 12:19. Просмотров 760. Ответов 2

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

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

сумма индексов
в матрице найти сумму индексов четных элементов

Найти кратный элемент у которого сумма индексов наибольшая.....
Дана квадратная матрица. найти элементы кратные 2! вывести их на печать. и найти из них элемент у...

Суммировать элементы массива, для которых сумма индексов нечетна
Помогите пожалуйста написать. Нужно суммировать элементы массива А(n,m), для которых сумма индексов...

Заполнить массив и вычислить сумму элементов, сумма индексов у которых нечетная
Создать приложение, которое запрашивает размерность двумерного массива, заполняет его случайными...

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const gl=['A','E','I','O','U'];
var s:string;
    m:array[1..100] of string[5];
    n,i,j,kc,kg,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);
  kc:=0;
  kg:=0;
  for j:=1 to 5 do
   begin
    if m[i][j] in ['0'..'9'] then inc(kc);
    if m[i][j] in gl then inc(kg);
   end;
  if (kc>0)and(kg=0) then inc(sm,i);
  writeln(m[i]);//не обязательно
 end;
writeln(sm)
end.
1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
5723 / 3894 / 4358
Регистрация: 05.06.2014
Сообщений: 19,402
26.03.2020, 13:19 3
Взято отсюда: Вычислить сумму индексов элементов, значения которых не могут быть именами переменных
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
  alf: set of char = ['A'..'Z'];
  gl: set of char = ['E', 'Y', 'U', 'I', 'O', 'A'];
  sg: set of char = alf - gl;
  q: set of char = ['0'..'9'] + sg;
 
function Sum5Index(s: String): Integer;
var
  k, i: Byte;
begin
  k := 0;
  for i := 1 to length(s) div 5 do
    inc(k, i * ord(s[pred(i) * 5 + 1] in q));
  Sum5Index := k;
end;
 
begin
  {writeln(alf);
  writeln(gl);
  writeln(sg);}
  writeln(q);
  Writeln(Sum5Index('KDSFJHGLKDJGHLSUIRH5HGUHG58HGLSHDJHTI8GLSRH984GKDJ'));
end.
Добавлено через 5 минут
Где-то накосячил я. Ответ неверный.
1
26.03.2020, 13:19
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.03.2020, 13:19

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

В двумерном массиве вычислить сумму элементов, сумма индексов которых равна 4
в двумерном массиве вычислить сумму элементов, сумма индексов которых равна 4

Найти сумму всех отрицательных элементов, сумма индексов которых не менее К
Помогите пожалуйста решить вот такую задачу. В целочисленной матрице размера N*M найти сумму всех...

В двухмерном массиве найти все элементы, сумма индексов столбца и строки
Помогите написать программу,пожалуйста :) Заранее спасибо! Условие: В двухмерном массиве найти...

Найти сумму элементов матрицы, сумма индексов которых равна заданной константе
2. Составить программу суммирования элементов двумерного массива, сумма индексов которых равна...


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

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

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