Даны целое число k (1 меньше =k меньше =150) и последовательность цифр 101102103...149150, в которой выписаны подряд все трехзначные числа от 101 до 150. Нужно определить k-ую цифру. Решить нужно в Pascal 3 с использованием стр...
Даны целое число 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.
Не нашли ответ?
Похожие вопросы