#include <iostream>
#include <string>
using namespace std;
#define IN 1 //внутри слова
#define OUT 0 //вне слова
int main()
{
string s;
getline(cin, s);
int state = OUT; //позиция
s = ' ' + s + ' ';
int k = 0; //позиция начала слова
for (int i = 0; i < s.size(); i++)
if (s[i] == ' ') {
if (state == IN && s[k] == s[i - 1])
cout << s.substr(k, i - k + 1) << endl;
state = OUT;
} else if (state == OUT) {
k = i;
state = IN;
}
return 0;
}
Const N1 = 5;
N2 = 5;
var a: array [0..N1, 0..N2] of integer;
b: array [0..N1*N2] of integer;
i, j, n: integer;
begin
for i:=0 to N1 do {Заполнение массивы случайными числами}
for j := 0 to N2 do
a[i, j] := random(9999);
for i:=0 to N1 do {Основная часть, проверка и заполнение второго массива}
for j := 0 to N2 do
if (a[i, j] mod 2 = 0) then
begin
b[n] := a[i, j];
n := n + 1;
end;
for i:=0 to n do {Вывод полученных чисел}
writeln(b[i]);
<span>end.</span>
256 в 2-ую -100000<span>000;
256 в 8-ую - </span><span>400;
256 в 16-ую -100;
256 в 4-ую - 10000;
256 в 7-ую - 514;
</span>