Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Алексей 3
0 / 0 / 0
Регистрация: 26.04.2017
Сообщений: 10
1

Среди цифр введенной строки распечатать ту, которая появлялась чаще других

26.04.2017, 13:08. Просмотров 716. Ответов 1
Метки нет (Все метки)

Среди цифр введенной строки распечатать ту, которая появлялась чаще других. Если таких цифр было несколько, распечатать ту, что встретилась первой.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2017, 13:08
Ответы с готовыми решениями:

Вывести название книги, которая обладает большей популярностью среди других
:cry: Есть файл knigi.txt с Nым кол-вом строк(программа не знает сколько...

Среди всех трёхзначных чисел напечатать те, у которых одна из цифр равна сумме двух других
Среди всех трёхзначных чисел напечатать те, у которых одна из цифр равна сумме...

Написать прорамму, которая удаляет все пробелы из введенной строки.
Помогите решить задачу. Составьте программу удаляющие все пробелы из...

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

Написать программу,которая удаляет из введенной строки все подстроки совпадающие с заданной
Написать программу,которая удаляет из введенной строки все подстроки...

1
Hitoku
Модератор
1705 / 1304 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
26.04.2017, 23:07 2
Лучший ответ Сообщение было отмечено Алексей 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
type mas = array[0..9] of string;
 
procedure Group(var a:mas; s:string);
var j,i,n:byte;
begin
  i:=1;
  while i<>length(s) do
    if s[i] in ['0'..'9'] then
      inc(i )else delete(s,i,1);
  for i:=0 to 9 do
    if length(s)<>0 then begin
      a[i]:=copy(s,1,1);
      delete(s,1,1);
      j:=1;
      while j<=length(s) do
        if copy(s,j,1)=a[i][1] then begin
          a[i]:=a[i]+copy(s,j,1);
          delete(s,j,1);
        end else inc(j);
    end;
end;
 
procedure SortByLength(var a:mas);
var i,j:byte;
    x:string;
begin
  for i:=0 to 8 do
    for j:=i to 9 do
      if length(a[i])<length(a[j]) then begin
        x:=a[i]; a[i]:=a[j]; a[j]:=x;
      end;
end;
 
var s:string; a:mas;
    i,max:byte;
begin
  readln(s);
  Group(a,s);
  SortByLength(a);
  writeln(a[0][1]);  
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2017, 23:07

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

Работа с символами и строками. Составить программу, которая выделяет отдельные слова и числа из введенной пользователем строки
Составить программу, которая выделяет отдельные слова и числа из введенной...

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


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

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

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