Уточнення алгоритму обчислення виразу, Детальна інформація

var i : integer;

begin

S := [];

for i:= 1 to length(A) do S := S + [ A[i] ]

end;

2) функція EqSS задає перевірку рівності множин символів двох рядків:

function EqSS ( A, B : Str ) : boolean;

var S1, S2 : SS;

begin

Symset (A, S1);

Symset (B, S2);

EqSS := (S1 = S2)

end;

3) функція SettoStr задає побудову рядка з символів-елементів множини в порядку їхнього кодування:

function SettoStr ( S : SS) : Str;

var A : Str; c : char;

begin

A := '';

for c := chr(0) to chr(255) do

if c in S then A := A + c;

SettoStr := A

end.

\xF0E7

атні 2, потім кратні 3 тощо.