Код решение необходим В С++

string a;

string b;

int count = 0;

int count2 = 0;

bool g = false;

bool g2 = false;

Console.WriteLine("Введите первую строку");

a = Convert.ToString(Console.ReadLine());

Console.WriteLine("Введите первую строку");

b = Convert.ToString(Console.ReadLine());

Console.WriteLine("Введите первый символ");

Макрой avatar

char first_symbol = Convert.ToChar(Console.ReadLine());

Console.WriteLine("Введите последний символ");

char second_symbol = Convert.ToChar(Console.ReadLine());

char[] separ = { ' ' };

string[] a1 = a.Split(separ);

string[] b1 = b.Split(separ);

Макрой avatar

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

if (a1[i].IndexOf(first_symbol) == 0 && a1[i].IndexOf(second_symbol) == a1[i].Length - 1)

{

Console.Write(a1[i]+";"); count++; g= true;

}

if (g)

{

Console.WriteLine(" В этой строке :" + count + " слов(о)");

}

Console.WriteLine();

Макрой avatar

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

if (b1[i].IndexOf(first_symbol) == 0 && b1[i].IndexOf(second_symbol) == b1[i].Length - 1)

{

Console.Write(b1[i]+";"); count2++; g2 = true;

}

if (g2)

{

Console.WriteLine(" В этой строке :" + count2 + " слов(о)");

}

Console.ReadLine();

Объяснение:

1. Если имеется в виду язык Pascal, то получим следующее:
var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  readln(a);
  b:=a+a;
  writeln (b);
end.

Program50.pas(5) : Неизвестное имя 'b'

2. Попробуем такой вариант на Python

a =int(input())
b = a+a
print(b)

При вводе а получим на выходе 10

Получается, что в Pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с служебного слова var для PascalABC.net. Первый код можно переписать так, и он будет работать:

var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  readln(a);
  var b:=a+a;
  writeln (b);
end.

Рузультат при введенном значении 5 равен 10