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.
Windows 7, Xp, 8, 10, vista, 95,3.1,1.0
Mac OS puma, jaguar, panther,tiger, leopard, snow leopard , Syrah
Linux не знаю
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Transform(x->x>0?x*4:x*7); a.Println
end.
<u>Пример</u>
n= 13
-9 23 -29 -36 -10 -20 9 28 26 34 -41 -2 45
-63 92 -203 -252 -70 -140 36 112 104 136 -287 -14 180
~Not(не)
Знак ~, расположенный поверх другого оператора, означает то же самое, что «¬», помещённое перед выражением.
Не применятся операция замены неверно выбранных символов