ВХОДНЫЕ ДАННЫЕ Вводится строка, содержащая буквы латинского алфавита, пробелы, знаки...

Question

ВХОДНЫЕ ДАННЫЕ
Вводится строка, содержащая буквы латинского алфавита, пробелы, знаки препинания. Буквы могут быть как заглавные, так и строчные.
ВЫХОДНЫЕ ДАННЫЕ
Выведите одно число — количество различных букв в этой строке.
ПРИМЕРЫ
ВВОД ВЫВОД
Hello World! 7

Comments

var s : string; count : integer := 0; letter : array ['a'..'z'] of boolean;begin for var c := 'a' to 'z' do letter[c] := false; readln(s); for var i := 1 to length(s) do if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then letter[lowerCase(s[i])] := true; for var c := 'a' to 'z' do if letter[c] then inc(count); writeln(count);end.

---

а для бп какая должна быть программа?

---

Что такое бп?

---

Pascal Borner

---

Впервые слышу...Ну эта прога по ABC.net написана.

---

я это поняла, просто интересны другие вар-ты

---

Может Borland Pascal ?

---

старарая программадада именно что-то туплю я сегодня

---

спасибо огромное!

Answer 1

Хотите экзотики? Получите решение на множествах!

uses Crt;
var
  L:set of 'A'..'Z';
  s:string;
  c:char;
  i,n:byte;
begin
  ClrScr;
  ReadLn(s);
  for i:=1 to Length(s) do begin
    c:=UpCase(s[i]);
    if c in ['A'..'Z'] then Include(L,c)
  end;
  n:=0;
  for c:='A' to 'Z' do
    if c in L then Inc(n);
  Writeln(n);
  ReadKey
end.

Тестовое решение:
Hello World!
7