Определить k–ю цифру в последовательности 110100100010000100000…, в которой выписаны подряд степени 10

@Alvares · Регистрация: 03.06.2014

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

помогите плз!!!)
Дано натуральное k. Определить k–ю цифру в последовательности 110100100010000100000…, в которой выписаны подряд степени 10

@Cyborg Drone · 03.06.2014, 13:46

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var k, d, i: integer;
begin
  repeat
    write('k = ');
    readln(k);
    if k < 1 then writeln('Error: k < 1, reenter.')
  until k >= 1;
  if k <= 2
    then d := 1
    else begin
      i := 2;
      d := 2;
      repeat
        d := d + i;
        inc(i)
      until d >= k;
      if d = k then d := 1 else d := 0
      //d := ord(d = k) //вариант предыдущей строки
    end;
  writeln('Digit = ', d);
  readln
end.

@Alvares 0 / 0 / 0 Регистрация: 03.06.2014 Сообщений: 6
		1
	Определить k–ю цифру в последовательности 110100100010000100000…, в которой выписаны подряд степени 10 03.06.2014, 12:59. Показов 2238. Ответов 1 Метки нет (Все метки) помогите плз!!!) Дано натуральное k. Определить k–ю цифру в последовательности 110100100010000100000…, в которой выписаны подряд степени 10 0

	03.06.2014, 13:46

Определить k–ю цифру в последовательности 110100100010000100000…, в которой выписаны подряд степени 10

Решение