Var
S,C,C1,R:string;
i,j,m,n,k:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
i:=1;
LowerCase(S);
While S[i]<>' ' do
Begin
C:=C+S[i];
i:=i+1
End;
i:=i+1;
For i:= i to Length(S) do
if (S[i]<>' ')and(i<>Length(S)) then C1:=C1+S[i]
else
Begin
k:=1;
j:=1;
For j:= 1 to Length(C1) do
Begin
n:=0;
For m:= 1 to Length(C) do
if C1[j] = C[m] then n:=1;
if n = 0 then k:=0
End;
if (k = 1)and(C1 <> '') then R:=R+C1+' ';
C1:='';
End;
if R = '' then WriteLn('Нет')
else WriteLn(R)
End.
Если шаг не задан явно, значит он равен 1.
При совершении преступления " собирают инфу" потом,
"Обрабатывают ее", тоесть рассматривают улики и ищут схожесть и тд. , затем упрощается, для более легкого понимания . При обьяснении урока или темы мы "запоминаем инфу" , учитель передает ее, а мы ее принемаем. Разрушаются ( удаляется) .мы как обычно не все помним, кое-что забывается, тоесть мозг " удаляет " ненужную для нас инфу: вы помните то что ели на завтрак неделю назад? Так же информация можно измерить в писмености она измеряется буквами , в математике цифрами и занками , а в компе байтам и килобайтами и тд.
Мы можем "копировать" инфу : ксеракс "копирует" лист бумаги тоесть он копирует инфу , находящеюсегося на этом листке.
При пересказе текста мы чаще не все сразу читаем что бы пересказать, а читаем " часть " книги а потом еще и еще. Тоесть мы " делим ее"
Язык на котором реализовать требуется?