Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ линейная структура

Автор: En1gma 6.04.2007 0:47

Даны целое число k (1<=k<=180) и последовательность цифр 10111213…9899, в которой выписаны подряд все двузначные числа. Определить номер пары цифр, в которую входит k-я цифра.


Мне очень нужна помошь! Никак немогу сделать... Если кто сможет напишите пожалуйста....Заранее спасибо wub.gif

Автор: klem4 6.04.2007 1:13


var
  s, temp: String;
  i, k: Integer;

begin
  s := '';

  for i := 10 to 99 do begin
    Str(i, temp);
    s := s + temp;
  end;

  write('k = '); readln(k);

  Str(k, temp);

  writeln(Pos(temp, s) div 2 + 1);
end.


Если строками пользоваться нельзя, дело обстоит много хуже.