Предмет: Информатика,
автор: jibek15
Дано натуральное k от 1 до 180. Написать программу для определения цифры, которая находится в k-той позиции последовательности 10111213…9899. Формат входных данных Файл содержит число k — позиция искомой цифры. Формат выходных данных Выходной файл содержит искомую цифру.
Ответы
Автор ответа:
0
//PascalABC.NET 3.2 сборка 1318
Var
f:text;
k,i:integer;
s:string;
begin
for i:=10 to 99 do
s+=inttostr(i);
assign(f,'input.txt');
reset(f);
read(f,k);
close(f);
assign(f,'output.txt');
rewrite(f);
write(f,s[k]);
close(f);
end.
Пример содержимого input.txt:
180
Пример содержимого output.txt:
9
Var
f:text;
k,i:integer;
s:string;
begin
for i:=10 to 99 do
s+=inttostr(i);
assign(f,'input.txt');
reset(f);
read(f,k);
close(f);
assign(f,'output.txt');
rewrite(f);
write(f,s[k]);
close(f);
end.
Пример содержимого input.txt:
180
Пример содержимого output.txt:
9
Интересные вопросы
Предмет: Математика,
автор: Aidinar
Предмет: История,
автор: daniilavramenko944
Предмет: Математика,
автор: alinakovalenko875
Предмет: Математика,
автор: man4enckoolia