Вопрос по информатике:
Дано натуральнок K от 1 до 180.Написать программу для определения цифры, которая находится в k-той позиции последовательности 10111213...9899. Формат входных данных Файл содержит число k-позиция искомой цифры. Формат выходных данных Выходной файл содержит искомую цифру. Пример входных и выходных файлов Task1.in Task1.out 4 1 8 3
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.05.2015 17:02
- Информатика
- remove_red_eye 3716
- thumb_up 7
Ответы и объяснения 1
Var k: integer;
f: Text;
begin
assign(f, 'Task1.in');
reset(f);
readln(f, k);
close(f);
assign(f, 'Task1.out');
rewrite(f);
if (k mod 2 = 0) then
writeln(f, ((k-1) div 2) mod 10)
else
write(f, (k div 2) div 10 + 1);
close(f);
end.
- 16.05.2015 19:04
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.