)

j:=0;

for i:=1 to Length(nn) do begin

m:=nn[i];

if (m in n) then inc(j);

end;

writeln ('Количество элементов строки S в J = ', j);

readln (f1);

writeln (f2,'Количество элементов строки S в J =' ,j);

close(f1);

close(f2);

end.

Aleksandra20061    2   17.09.2021 14:34    0