Помощь - Поиск - Пользователи - Календарь
Полная версия: линейная структура
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
En1gma
Даны целое число k (1<=k<=180) и последовательность цифр 10111213…9899, в которой выписаны подряд все двузначные числа. Определить номер пары цифр, в которую входит k-я цифра.


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

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.


Если строками пользоваться нельзя, дело обстоит много хуже.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.