’z’,’_’,’0’..’9’] then inc(i)
else key:=false;
if key then WriteLn(‘st,’ жолы - идентификатор.’)
else WriteLn(st,’ жолында рұқсат етілмеген символдар бар.’);
end
else
WriteLn(st,’ жолы рұқсат етілмеген символдан
басталады.’);
End.
6.3-мысал. Берілген натурал санның жазылуындағы цифрлар санын анықтайтын программа құрастыру керек.
Есепті шығару үшін енгізілген сан модулін символдық жол-ға түрлендіріп, осы символдардан жиын құрастырамыз. Енді жиындағы символдардың 0-ден 9-ға дейінгі сандар жиынына кіретіндігін тексеріп, экранға мəлімет шығарамыз.
Program ex;
Var n:longint;
st:string;
mnoj:set of '0'..'9'; i:integer; j:char;
Begin
WriteLn('Сан енгізіңіз:');
ReadLn(n);
Str(abs(n),st);
mnoj:=[]; {бастапқыда жиын бос} for i:=1 to length(st) do mnoj:=mnoj+[st[i]]; {жиын құрастырамыз} WriteLn(n,' санының жазылуына келесі сандар
кіреді:');
for j:='0' to '9' do {жиынға кіретін цифрларды экранға шығарамыз}
if j in mnoj then Write(j+' '); End.
