Строки и множества. Проверить, есть ли в строке полный набор всех цифровых символов

@IvanReverse · Регистрация: 24.04.2012

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

помогите решить
Дана строка символов. Проверить, есть ли в строке полный набор всех цифровых символов.

@_script_ · 02.05.2012, 12:10

Вроди так работает)

Pascal

uses crt;
var
 mnog:set of '0'..'9';
 stroka:string;
 i:byte;
 
begin
     readln(stroka);
     mnog:=['0','1','2','3','4','5','6','7','8','9'];
     for i:=1 to length(stroka) do
         If stroka[i] in mnog then
            mnog:=mnog-[stroka[i]];
            
      if mnog=[] then writeln('V stroke polniy nabor!')
      else   writeln('V stroke  NE polniy nabor!')
            
            
 end.

@IvanReverse 0 / 0 / 0 Регистрация: 24.04.2012 Сообщений: 23
		1
	Строки и множества. Проверить, есть ли в строке полный набор всех цифровых символов 02.05.2012, 11:48. Показов 1639. Ответов 1 Метки нет (Все метки) помогите решить Дана строка символов. Проверить, есть ли в строке полный набор всех цифровых символов. 0

	02.05.2012, 12:10

Строки и множества. Проверить, есть ли в строке полный набор всех цифровых символов

Решение