write(' ',r2[i]);
write('.Вес этого рюкзака равен ',mr2);
writeln;
writeln('--- End Work ---');
error:
readln;
end.
7. Решение задачи «Арифметика» , которая была
предложенана олимпиаде первокурсников факультета
ПММ в 2001 году, предложенное студентом
Андрейчиковым Василием Андреевичем
Любители арифметических вычислений страны Путинии
выписывают последовательность, состоящую из цифр и
натуральных чисел.
Вот начало этой последовательности:
112123123412345123456123456712345678123456789123456
789101234567891011123456789101112.
Создать программу, которая по заданному N
определяет для любителей арифметических вычислений
страны Путинии N-ый символ последовательности,
считая слева направо.
Входной файл содержит натуральное значение N (1 <=
N <= 2000000000)
Input.txt Например:
N 6
Output.txt Например:
искомый символ 3
{$A+,B-,D+,E+,F+,G+,I+,L+,N+,O+,P+,Q-,R+,S+,T+,V+}
{$M 30000,0,655360}
const
cInFile='input.txt';
cOutFile='output.txt';
var
N:longint;
C:char;
procedure Opa(code:byte); {вывод сообщений}
begin
case code of