ДАЮ 50 БАЛЛОВ!Даны целое число k (1 меньше =k меньше =150) и последовательность цифр 101102103…149150, в которой выписаны подряд все трехзначные числа.Определить k-тую. цифру, если k кратно трём.Pascal ABC.
ДАЮ 50 БАЛЛОВ!
Даны целое число k (1<=k<=150) и последовательность цифр 101102103…149150, в которой выписаны подряд все трехзначные числа.Определить k-тую. цифру, если k кратно трём.Pascal ABC.
Гость
Ответ(ы) на вопрос:
Гостьvar k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103…149150 = ',n);
end.
Пример:
k = (k кратно 3) 27
27-я цифра последовательности 101102103…149150 = 9
Не нашли ответ?
Похожие вопросы