Даны целое число k (1< =k< =252) и последовательность цифр , в которой выписаны подряд все натуральные числа от 50 до 250. нужно. определить k-ую цифру.

лето1990 лето1990    1   09.08.2019 06:50    4

Ответы
artursaripov851 artursaripov851  04.10.2020 06:45
//PascalABC.Net 3.1 сборка 1200
var
    s: string;
    k, i: integer;

begin
    readln(k);
    
    for i := 50 to 250 do
        s := s + IntToStr(i);
    
    writeln(s[k]);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика