profile
Опубликовано 5 лет назад по предмету Информатика от destanto38

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

  1. Ответ
    Ответ дан JustPeople
    VAR
       c: Char;
    BEGIN
       Assign(input, 'input.txt'); ReSet(input);

       Read(c); 
       If (c <> '1') then begin Write('NO'); Exit; End;

       While (not eoln(input)) do begin
          Read(c);
          If (c <> '0')and(c <> '1') then begin Write('NO'); Exit;
       End;
    END.