Пароль состоит из 6 символов .Из исходной записи SCHOOL555INFORM удалить все повторяющиеся символы,а затем все символы ,начиная с седьмого(т.е оставить первые 6 символов)
// PascalABC.NET 3.0, сборка 1076
begin
var s:=SCHOOL555INFORM;
Writeln(Пароль: ,s.Distinct.Take(6).JoinIntoString())
end.
Результат выполнения программы:
Пароль: SCHOL5
Оцени ответ
