Даны целое число k (1<=k<=150) и последовательность цифр 101102103...149150, в которой выписаны подряд все трехзначные числа от 101 до 150. Нужно определить k-ую цифру. Решить нужно в Pascal 3 с использованием строк и логических действий. Заранее огромное спасибо.
Var k,n: integer;
s: string;
begin
write(k = ); readln(k);
n:=k div 3;
k:=k mod 3;
n:=n+100;
Str(n,s);
if k=0 then writeln(s[3])
else writeln(s[k]) end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
