Дано натуральнок K от 1 до 180.Написать программу для определения цифры, которая находится в k-той позиции последовательности 10111213...9899. Формат входных данных Файл содержит число k-позиция искомой цифры. Формат выходных д...
Дано натуральнок K от 1 до 180.Написать программу для определения цифры, которая находится в k-той позиции последовательности 10111213...9899. Формат входных данных Файл содержит число k-позиция искомой цифры. Формат выходных данных Выходной файл содержит искомую цифру. Пример входных и выходных файлов Task1.in Task1.out 4 1 8 3
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы