Static void Main(string[] args)
{
StringBuilder str = new StringBuilder();
Console.Write("Введите строку, ввод завершится по точке: ");
char input = Console.ReadKey(true).KeyChar;
if (char.IsLetterOrDigit(input) || char.IsSeparator(input)) Console.Write(input);
while(input != '.')
{
str.Append(input);
input = Console.ReadKey(true).KeyChar;
if (char.IsLetterOrDigit(input) || char.IsSeparator(input)) Console.Write(input);
}
Console.WriteLine();
string resStr = str.ToString();
int a = resStr.Count(p => p == 'а');
int b = resStr.Count(p => p == 'б');
if (a > b)
Console.WriteLine("В строке чаще встречается буква а");
else if (a < b)
Console.WriteLine("В строке чаще встречается буква б");
else
Console.WriteLine("В строке букв а и б равное количество");
Console.ReadKey();
}
Adsl, опто волокно, wi-fi, кабельное ТВ ,Спутниковая связь , gsm, GPRS, tetra, радио, рации. 3G 4g.
Сначала поменять букву н на букву д, затем букву о на букву е, дальше букву ч на букву н.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrGen(10,i->i+9); a.Println;
a:=a.Select(t->t.IsEven ? 2*t : t).ToArray; a.Println
end.
<u>Результат</u>
9 10 11 12 13 14 15 16 17 18
9 20 11 24 13 28 15 32 17 36