Проверить, является ли введенная с клавиатуры строка двоичным числом - Pascal ABC

Формулировка задачи:

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


textual

Код к задаче: «Проверить, является ли введенная с клавиатуры строка двоичным числом - Pascal ABC»

var s:string;
    n,i:byte;
begin
writeln('Введите строку');
readln(s);
n:=length(s);
i:=1;
while (i<=n) and (s[i]in ['0','1']) do inc(i);
if i>n then writeLn('Это двоичное число')
else writeLn('Это не двоичное число');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.500 из 5

Источник
Похожие ответы