Var k,i:integer; s,x:string; begin for i:=10 to 99 do s:=s+IntToStr(i); writeln(s); write('Введите число k: '); readln(k); x:=s[k]; writeln(k,'-я цифра: ',x) end.
Могут получиться числа 101, 1810, 112. Всего 3 числа Число 1014 не может получиться, так как суммы цифр должны располагаться в порядке не возрастания, а 10<14 Число 1205 не может получиться, так как, здесь могут быть только суммы 12 и 5, а это дает число 125, а не 1205 Число 101 может получиться, например, из числа 5015 или 6104 (суммы 10 и 1) Число 1810 может получиться из 9559 или 6994 (суммы 18 и 10) Число 112 может получиться из 5116 или 2740 (суммы 11 и 2) Число 1918 не может получиться, так как сумма двух цифр не может быть = 19
Проприетарные лицензии - это несвободное программное обеспечение, не удовлетворяющее критериям свободы. Правообладатель сохраняет за собой монополию на его использование, копирование и модификацию, полностью или в существенных моментах. Копилефт - это лицензия которая позволяет использовать оригинальные (исходные) работы при создании новых (производных) работ без получения разрешения владельца авторского права, и требует, чтобы два пункта этого списка присутствовали в лицензии производной работы. Электронный ключ - аппаратное средство, предназначенное для защиты программного обеспечения (ПО) и данных от копирования, нелегального использования и несанкционированного распространения.
k,i:integer;
s,x:string;
begin
for i:=10 to 99 do s:=s+IntToStr(i);
writeln(s);
write('Введите число k: ');
readln(k);
x:=s[k];
writeln(k,'-я цифра: ',x)
end.