Двузначное число, образованное парой, в которую входит k-тая цифра - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Даны целое число k (1<=k<=180) и последовательность цифр 1011121314…9899, в которой выписаны подряд все двузначные числа. Определить: 1) k-тую цифру этой последовательности и 2) двузначное число, образованное парой, в которую входит k-тая цифра. Первую часть задания решить смог
Листинг программы
  1. program ind13;
  2. uses crt;
  3. var k,z:integer;
  4. begin
  5. clrscr;
  6. repeat
  7. writeln('enter k[1-180]');
  8. readln(k);
  9. until (k>=1)and(k<=180);
  10. clrscr;
  11. writeln('entered k= ', k);
  12. z:=((k-1) mod 2)*((k-1) mod 20) div 2+(k mod 2)*((k div 20)+1);
  13. writeln('a= ',z);
  14. readln
  15. end.
найдя здесь различные решения, а со второй частью проблемы, результат должен быть примерно такой при вводе 180 или 179 выводиться 99, при вводе 178 или 177 выводиться 98 и т.д.

Решение задачи: «Двузначное число, образованное парой, в которую входит k-тая цифра»

textual
Листинг программы
  1. var k: integer;
  2. begin
  3.   ReadLn(k);
  4.   WriteLn(9+((k+1) div 2))
  5. end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач, связанных с обработкой данных, включая работу с числами. Переменная k представляет собой целое число, которое считывается из стандартного ввода. Затем происходит вычисление значения выражения 9 + ((k+1) / 2) и результат записывается в стандартный вывод. В данном случае, код вычисляет двузначное число, образованное парой, в которую входит k-тая цифра. Результатом будет число, состоящее из двух цифр, где первая цифра равна 9, а вторая цифра равна (k+1) деленное на 2. Например, если значение переменной k равно 5, то результатом выполнения программы будет число 18.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.1 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы