Вывести все четные цифры, содержащиеся в слове наибольшей длины, и вывести число повторений каждой этой цифры

@alina161 · Регистрация: 11.11.2016

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

Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). Элементами слов могут быть любые графические символы. Вывести все четные цифры, содержащиеся в слове наибольшей длины, и вывести число повторений каждой этой цифры в этом слове.

@Hitoku · 18.03.2017, 21:56

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  w:array [1..100] of string[80];
  i,j,n,k:byte;
  max:string[80];
begin
  write('N = '); readln(n);
  write('Введите 1 слово: '); readln(w[1]); max:=w[1];
  for i:=2 to n do begin
    write('Введите ',i,' слово: '); readln(w[i]);
    if length(w[i])>length(max) then max:=w[i];
  end;
  j:=0;
  while j<10 do begin
  j:=j+2; k:=0;
    for i:=1 to length(max) do
      if max[i]=inttostr(j) then inc(k);
    if k>0 then writeln(j,' - ',k);
  end;
end.

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

@alina161 0 / 0 / 1 Регистрация: 11.11.2016 Сообщений: 96

	Вывести все четные цифры, содержащиеся в слове наибольшей длины, и вывести число повторений каждой этой цифры 18.03.2017, 21:42. Показов 2373. Ответов 1 Метки string, массив, Строки (Все метки) Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). Элементами слов могут быть любые графические символы. Вывести все четные цифры, содержащиеся в слове наибольшей длины, и вывести число повторений каждой этой цифры в этом слове. 0

Вывести все четные цифры, содержащиеся в слове наибольшей длины, и вывести число повторений каждой этой цифры

Решение