Символы и Строки.

@Брилл · Регистрация: 09.11.2010

Author24 — интернет-сервис помощи студентам

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

@Stealik · 24.11.2010, 22:05

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('Яаляется') else
write('Не является');
write('Длина=',n);
readln;
end.

@Брилл 0 / 0 / 0 Регистрация: 09.11.2010 Сообщений: 6
		1
	Символы и Строки. 24.11.2010, 21:56. Показов 501. Ответов 1 Метки нет (Все метки) нужно написать программу, которая проверяет, является ли введенная строка двоичным числом и определить динамическую длину строки.. 0

@Stealik 5 / 5 / 2 Регистрация: 24.11.2010 Сообщений: 10
	24.11.2010, 22:05	2
	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('Яаляется') else write('Не является'); write('Длина=',n); readln; end. 1