Символы и строки в Паскале.

[Миша44]

нужно написать программу, которая проверяет, является ли введенная строка двоичным числом..

Program Z1;
var s:string;
n, i:integer;
b: boolean;
begin
readln(s);
n := length(s);
for i := 1 to n do
if ((s[i]='0') or (s[i]='1')) then
b:=true else
b:=false;
if b=true then
write('Dvoichnoe chislo') else
write('Ne dvoichnoe chislo');
write('Dlina=',n);
readln;
end.

как здесь обойтись без булина подскажите..

[unbanned]

без логических переменных можно обойтись взяв переменную типa integer. и присвоить ей первоначальное значение 0, и при выполнении условия плюсовать к ней единицу. в конце выполнить проверку. в принципе получается тоже самое, но если тебе не нравятся логические, можно делать так.

да и программа сама вроде как не верная

вот мой вариант

program Z1;

var
  s: string;
  n, i, p: integer;

begin
  write('введите чисо для проверки: ');
  readln(s);
  n := length(s);
  p := 0;
  for i := 1 to n do
    if (copy(s, i, 1) <> '0') and (copy(s, i, 1) <> '1') then
      p := p + 1;
  if p <> 0 then writeln('не является двоичным')
  else writeln('является двоичным');
  write('длина=', n);
end.

[Миша44]

спасибо большое)