Написать программу, которая проверяет…

Задание:

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

Решение:

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.

Знаете другой ответ?

Отправить свой ответ