Объясните каждую строчку (паскаль) Const
y = '';
z = '';

Function Code(s : String) : String;
Var i : Byte;
Begin
For i:=1 to Length(s) do
If Pos(s[i],y)>0 then s[i]:=z[Pos(s[i],y)];
Code:=s;
end;

Function DeCode(s : String) : String;
Var i : Byte;
Begin
For i:=1 to Length(s) do
If Pos(s[i],z)>0 then s[i]:=y[Pos(s[i],z)];
Decode:=s;
end;

Begin
Writeln(Code('за окном шёл дождь и рота красноармейцев'));
Writeln(DeCode(Code('за окном шёл дождь и рота красноармейцев')));
end.

gromalex201    1   11.04.2021 18:48    0