ДАЮ 50 БАЛЛОВ!Даны целое число k (1amp;lt;=kamp;lt;=150) и последовательность цифр

ДАЮ 50 БАЛЛОВ!
Даны целое число k (1lt;=klt;=150) и последовательность цифр 101102103149150, в которой выписаны попорядку все трехзначные числа.Найти k-тую. цифру, если k кратно трём.Pascal ABC.

Задать свой вопрос
1 ответ
Var k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103149150 = ',n);
end.

Пример:
k = (k кратно 3) 27
27-я цифра последовательности 101102103149150 = 9
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт