Pacal(Сложные типы данных. Множества)

[artemon16]

Добрый день!
Помогите решить задачу.
Постановка задачи:Определить и вывести на экран множество символов входящих в диапазон '0'..'9' и не входящих в множество символов, составляющих дату рождения, введённую с клавиатуры(в формате ДД.ММ.ГГГГ)

[Stilet]

Введи строку, а потом проверяй на вход каждого символа в множество:

if  (s[i] in ['0'..'9']) then write(s[i]);

s - та самая строка

[artemon16]

Сообщение от Stilet

Введи строку, а потом проверяй на вход каждого символа в множество:

if  (s[i] in ['0'..'9']) then write(s[i]);

s - та самая строка

в условии же сказанно дата не строка а множество

[Serge_Bliznykov]

Сообщение от artemon16

в условии же сказанно дата не строка а множество

не существует иного способа ввести данные множества! Только через ввод строки.

Вот полностью решение задачи (но подчёркиваю - код от Stilet ВЕРЕН!!):

var
  DR : set of char;
  ch : char;
  s : string;
  i : integer;
begin
  WriteLn('VVedite daty (ДД.ММ.ГГГГ): ');
  ReadLn(s);
  DR := [];
  for i:=1 to length(s) do
     Include(DR, s[i]);


  for ch:='0' to '9' do
    if Not (ch in DR) then Write(ch,' ');
  WriteLn;
end.

[artemon16]

Сообщение от Serge_Bliznykov

не существует иного способа ввести данные множества! Только через ввод строки.

Вот полностью решение задачи (но подчёркиваю - код от Stilet ВЕРЕН!!):

var
  DR : set of char;
  ch : char;
  s : string;
  i : integer;
begin
  WriteLn('VVedite daty (ДД.ММ.ГГГГ): ');
  ReadLn(s);
  DR := [];
  for i:=1 to length(s) do
     Include(DR, s[i]);


  for ch:='0' to '9' do
    if Not (ch in DR) then Write(ch,' ');
  WriteLn;
end.

спасибо огромное, теперь дошло до меня

[Lady Meri]

помогите пожалуйста решить задачу на тему
создание программы анализирующая правильность записи арифметического выражения с точки зрения синтаксиса паскаль(или делфи

[Serge_Bliznykov]

Lady Meri
Читайте правила!!!
Создавайте новую тему, в теме укажите, что Вам надо сделать (например, "Анализ правильности арифметического выражения")
не забудьте указать язык программирования.
И свои наработки (потому что тут помогают, а не делают задания за кого-то!!)