Предмет: Информатика,
автор: destanto38
Написать программу, которая проверяет, является ли введенная с клавиатуры строка двоичным числом. Помогите. На PASCAL
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: gamemilk07
Предмет: Алгебра,
автор: Sky658
Предмет: Математика,
автор: ruslanforme
Предмет: Алгебра,
автор: tanyushkag
Предмет: Биология,
автор: vendy77