Проверить правильность ввода числа в двоичной системе счисления

@Florencov · Регистрация: 09.06.2013

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

2. Дано число в двоичной системе счисления. Проверить правильность ввода этого числа (в его записи должны быть только символы 0 и 1). Если число введено неверно, повторить ввод. //При правильном вводе перевести число в десятичную систему счисления.

@Striker · 10.06.2013, 08:49

Не по теме:

Стыдно не знать элементарного....

Pascal

var
  s: string;
  chislo, i, st: integer;
  ch: real;
 
begin
  repeat
    readln(s);
    st := 0;
    for i := 1 to length(s) do
      if((s [i] = '1') or (s[i] = '0')) then
        inc(st);
  until st = length(s);
  dec(st);
  for i := 1 to length(s) do
  begin
    ch := strtoint(s[i]) * (exp(ln((2)) * st));
    chislo := chislo + round(ch);
    dec(st);
  end;
  Writeln(chislo);
end.

@Florencov 0 / 0 / 0 Регистрация: 09.06.2013 Сообщений: 18
		1
	Проверить правильность ввода числа в двоичной системе счисления 09.06.2013, 23:39. Показов 1910. Ответов 1 Метки нет (Все метки) 2. Дано число в двоичной системе счисления. Проверить правильность ввода этого числа (в его записи должны быть только символы 0 и 1). Если число введено неверно, повторить ввод. //При правильном вводе перевести число в десятичную систему счисления. 0

	10.06.2013, 08:49

Проверить правильность ввода числа в двоичной системе счисления

Решение