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

//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.

1)a=1; 2)b=2 3) a=1+2=3; 3)b=2*3=6;

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.