Переведите из паскаля в c++ var
c: set of byte;
n, i, k, j, l: byte;
b: char;
begin
assign (input, 'input.txt'); reset (input);
assign (output, 'output.txt'); rewrite (output);
readln (n); {количество сотрудников}
k:=0; {счетчик подразделений}
c:=[ ]; {множество для хранения номеров подразделений}
for i:=1 to n do
begin
j:=0;
while j<>2 do
begin
read (b);
if b='-' then j:=j+1;
end;
readln (l); {считываем номер подразделения}
if not (l in c) {если он еще не встречался}
then
begin
k:=k+1; {прибавляем единицу к счетчику}
c:=c+[l]; {помещаем номер подразделения во множество}
end;
end;
writeln (n/k:5:3); {находим среднее количество сотрудников в подразделении}
close (input);
close (output);
end.

Fvbygbb    2   28.04.2021 15:32    0