Sofa22Bas

29.12.2022 12:17 •  Информатика

)

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.