Строки,объявление строчных типов и переменных

@Иван Рожков · Регистрация: 12.12.2011

Author24 — интернет-сервис помощи студентам

Дана символьная строка,определить есть ли в данной строке два любых одинаковых символа,и вывести соответствующее сообщение.
Просьба решить по уровню 9 класса!

@Somebody · 23.12.2011, 22:30

Pascal

function CharactersUnique(const s: String): Boolean;
var
  i: Integer;
  c: set of Char;
begin
  c := [];
  for i := 1 to Length(s) do
  begin
    if s[i] in c then
    begin
      CharactersUnique := false;
      exit;
    end;
    Include(c, s[i]);
  end;
  CharactersUnique := true;
end;
 
var
  s: String;
 
begin
  Write('Enter a string: ');
  ReadLn(s);
  if CharactersUnique(s) then
    Write('All the characters are unique')
  else
    Write('String contains more than one of the same character');
  ReadLn;
end.

Уровень 9-го класса не особо представляю, я бы это классе в шестом - седьмом решил.

@Иван Рожков 0 / 0 / 0 Регистрация: 12.12.2011 Сообщений: 6
		1
	Строки,объявление строчных типов и переменных 23.12.2011, 20:08. Показов 1404. Ответов 1 Метки нет (Все метки) Дана символьная строка,определить есть ли в данной строке два любых одинаковых символа,и вывести соответствующее сообщение. Просьба решить по уровню 9 класса! 0

	23.12.2011, 22:30

Строки,объявление строчных типов и переменных

Решение