Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
wigler
16.07.2020 23:14 •
Информатика
Дано натуральное k от 1 до 180. написать программу для определения цифры, которая находится в k-той позиции последовательности.10111213…9899.
Показать ответ
Ответ:
Belgorodov33
22.06.2020 07:15
Var
k : integer;
begin
read (k);
if k mod 2 = 0 then
writeln ((k div 2 - 1) mod 10)
else writeln ((k div 2 - 1) div 10 + 1);
end.
вроде так
0,0
(0 оценок)
Популярные вопросы: Информатика
Андріана1111111
06.06.2020 14:38
Напишите на языке паскаль программу, которая для произвольного двухзначного числа определяет число, образованное перестановкой цифр исходного числа....
tarasova19781
06.10.2021 14:32
Python python python python python python python напишіть програму, яка реалізує популярну гру – black jack.згідно з правилами, колода перемішується випадковимчином,...
nzinulla
21.07.2021 02:53
Машинный язык это выберите один ответ: a. правила представления команд эвм при двоичного алфавита b. язык ассемблера c. правила двоичной арифметики d. интерфейс...
rusnazasly
09.03.2022 04:18
На паскале 1. составьте программу, увеличивающую введенное число на 1, если оно больше или равно100 и уменьшающее число на 1 в противном случае. 2. составить программу,...
vanyura
02.12.2021 11:51
Дано шесть чисел. необходимо определить сумму тех чисел, которые кратны 2, но не кратны 4. формат входных данных с клавиатуры вводятся 6 целых чисел. все числа...
vovova2020
26.08.2021 14:19
Python python python python python python python напишіть програму, яка реалізує популярну гру – black jack. згідно з правилами, колода перемішується випадковим...
AlinkaMalinka233
04.10.2022 09:38
Дано четыре числа. необходимо найти произведение чисел, кратных 13.формат входных данныхс клавиатуры вводятся 4 целых числа, по модулю не превосходящих 100.формат...
asyunyasavints
03.11.2021 00:52
Що буде результатом виконання даного алгоритму ...
УбийцаАкамеAkameKill
29.09.2022 23:06
Как можно применить нейронные сети в настоящее время? ...
milana372
27.11.2020 18:20
Що означає margin: 40px 5px...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k : integer;
begin
read (k);
if k mod 2 = 0 then
writeln ((k div 2 - 1) mod 10)
else writeln ((k div 2 - 1) div 10 + 1);
end.
вроде так