omigunova39
?>

Напишите программу, не могу решить уже какой 27 ! вот : количество каждой буквыпо данному слову, состоящему из строчных латинских букв, посчитайте количество каждой буквы.входные данныена вход подается одна строка без пробелов, состоящая не более 1000 строчных латинских букв. выходные данныевыведите на каждой строке в алфавитном порядке только те символы, которые встречаются в строке. возле каждого символа выведите сколько раз встречается данный символ.sample input: beegeeksample output: b 1e 4g 1k 1

Информатика

Ответы

Tatyana Anton1475

using System;

class Program

{

   static void Main() {

      string s=Console.ReadLine(),dic="";

      int k=0;

      for(int i=0;i<dic.Length;i++)

      {

        for(int j=0;j<s.Length;j++)

          if(s[j]==dic[i])

            k++;

        if(k!=0)

        {

          Console.WriteLine(dic[i].ToString()+" "+k.ToString());

          k=0;

        }

      }

     

   }

}

hobpack
1. Задача решается с стека (алгоритм Дейкстры для обработки обратной польской записи). Предполагается, что во вводимой строке содержится корректное выражение, удовлетворяющее условиям задания.

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var w:=ReadlnString.ToWords;
  var St:=new Stack <integer>;
  var r:=0;
  foreach var t in w do
    if t[1].IsDigit then St.Push(t.ToInteger)
    else begin
      var a:=St.Pop;
      var b:=St.Pop;
      case t[1] of
      '+':St.Push(a+b);
      '-':St.Push(b-a);
      '*':St.Push(a*b)
      end;
    end;
  Writeln(St.Pop) 
end.

Контрольный пример
8 9 + 1 7 - *
-102

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

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadlnString.ToWords.Skip(1).JoinIntoString('').
      MatchValue('(.)\1{2,}').Length);
end.

Контрольный пример
5 2 3 3 3 1
3
Tatyana1374
1. Задача решается с стека (алгоритм Дейкстры для обработки обратной польской записи). Предполагается, что во вводимой строке содержится корректное выражение, удовлетворяющее условиям задания.

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var w:=ReadlnString.ToWords;
  var St:=new Stack <integer>;
  var r:=0;
  foreach var t in w do
    if t[1].IsDigit then St.Push(t.ToInteger)
    else begin
      var a:=St.Pop;
      var b:=St.Pop;
      case t[1] of
      '+':St.Push(a+b);
      '-':St.Push(b-a);
      '*':St.Push(a*b)
      end;
    end;
  Writeln(St.Pop) 
end.

Контрольный пример
8 9 + 1 7 - *
-102

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

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadlnString.ToWords.Skip(1).JoinIntoString('').
      MatchValue('(.)\1{2,}').Length);
end.

Контрольный пример
5 2 3 3 3 1
3

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Напишите программу, не могу решить уже какой 27 ! вот : количество каждой буквыпо данному слову, состоящему из строчных латинских букв, посчитайте количество каждой буквы.входные данныена вход подается одна строка без пробелов, состоящая не более 1000 строчных латинских букв. выходные данныевыведите на каждой строке в алфавитном порядке только те символы, которые встречаются в строке. возле каждого символа выведите сколько раз встречается данный символ.sample input: beegeeksample output: b 1e 4g 1k 1
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Konstantinovna Ilyukhin1618
Максим_Нина
Kashtanov Anna
oafanasiev41
serg1976g
dashakhmeleva6
Maria095096
yanermarina87
irnik65
barabanoveugeny
mnkrasnova
Boldinova-Marianna
Есартия52
milanmilan8672
Yelena_Yuliya1847