30.11.2016, 16:31 | #1 (permalink) |
Member
Регистрация: 07.04.2016
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Множества
Напечатать в возрастающем порядке все цифры, не входящие в десятичную запись натурального числа N (число выбрать произвольно). |
30.11.2016, 16:31 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Напомню вам, что на форуме есть похожие топики Множества Множества С++ Множества С++ Множества |
30.11.2016, 16:41 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var N:String; i,k:Byte; S:Set of byte; Code:Word; Begin Write('N = '); Readln(N); S:=[]; for i:=1 to Length(N) do begin Val(N[i],k,Code); if Not(k in S) then S:=S+[k]; end; for i :=0 to 9 do if Not(i in S) then Write(i:2); Readln End. |
|
30.11.2016, 17:17 | #4 (permalink) |
Member
Регистрация: 07.04.2016
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Но небольшая проблема, паскаль выдает ошибку
"Program1.pas(13) : Нет перегруженной подпрограммы с такими типами параметров" в этой строчке "Val(N[i],k,Code);" |
30.11.2016, 19:18 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Ладно, попробуйте так: Код:
Var N,Q:String; i,k,M:Byte; S:Set of byte; Code:Integer; Begin Write('N = '); Readln(N); M:=Length(N); S:=[]; for i:=1 to M do begin Q:=N[i]; Val(Q,k,Code); if Not(k in S) then S:=S+[k]; end; for i :=0 to 9 do if Not(i in S) then Write(i:2); Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
04.12.2016, 10:50 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|