Статистика
Всего в нашей базе более 4 327 047 вопросов и 6 446 052 ответов!

написать программу в паскале

10-11 класс

Напишите программу, подсчитывающую количество
различных букв в заданном слове.

Входные данные: ввести строкy Y с длиной не более 255 символов.

AlinaKuznezz 13 февр. 2016 г., 9:17:57 (4 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Полина2056
13 февр. 2016 г., 10:39:49 (4 года назад)

var
  y, b: string;
  i: integer;

begin
  readln(y);
  for i := 1 to length(y) do
    if (Pos(y[i], b) = 0) then
      b := concat(b, y[i]);
  writeln(length(b));
end.

Ответить

Другие вопросы из категории

Читайте также

Помогите написать программу в паскале. Задание:На плоскости даны 2 точки А (х1; у2) и В (х2; у2), определить какая из них находится дальше от начала коо

рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу

Написать Программу в паскале которая посчитала бы 5^123 (это цикл как бы должен быть)

http://primat.org/index/0-128 вот сайт что бы написать программу.

Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных

13.

Нужно написать программу на цикле с предусловием, на Паскале.

Написать программу Паскаль))) срочно!)))

Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.



Вы находитесь на странице вопроса "написать программу в паскале", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.