Дано натуральнок K от 1 до 180. Написать программу для определения цифры, которая находится в k-той позиции последовательности 10111213 ... 9899. Формат входных данных Файл содержит число k-позиция искомой цифры. Формат выходных данных Выходной файл содержит искомую цифру. Пример входных и выходных файлов Task1. in Task1. out 4 1 8 3

Question

Информатика

Семион

15 февраля, 16:09

Дано натуральнок K от 1 до 180. Написать программу для определения цифры, которая находится в k-той позиции последовательности 10111213 ... 9899. Формат входных данных Файл содержит число k-позиция искомой цифры. Формат выходных данных Выходной файл содержит искомую цифру. Пример входных и выходных файлов Task1. in Task1. out 4 1 8 3

+1

Ответы (1)

Знаете ответ?

Алевтинка · Answer 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.