Форум » Обработка числовых последовательностей » С4 задача 29 » Ответить
С4 задача 29
gsi: var num: array['1'..'9'] of boolean; c: char; count: boolean; begin for c:='1' to '9' do num[c] := False; repeat read(c); if ('1' <= c) and (c <= '9') then num[c]:= true; until c = '.'; count := true; for c:='1' to '9' do begin if num[c] = false then begin write(c); count:= false end; end; if count =true then writeln('0'); end. --- На мой взгляд более эффективное по меньшему объему памяти под логические переменные в АБС.Нет Паскале и методически (исключен счетчик, использованы логические переменные).
Ответов - 0
полная версия страницы