Вопрос по информатике:
ДАЮ 50 БАЛЛОВ!
Даны целое число k (1<=k<=150) и последовательность цифр 101102103…149150, в которой выписаны подряд все трехзначные числа.Определить k-тую. цифру, если k кратно трём.Pascal ABC.
Пожаловаться
- 07.02.2018 22:51
- Информатика
- remove_red_eye 13356
- thumb_up 22
Ответы и объяснения 1
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
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
Пожаловаться
- 08.02.2018 10:37
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы