Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
EfaliyaRom
05.06.2019 07:10 •
Информатика
Паскаль даны целое число k (1≤ k≤ 180) и последовательность цифр , в которой выписаны подряд все двухзначные числа. определить k-ю цифру.
Показать ответ
Ответ:
Rasul101231
01.10.2020 19:43
Var
k,i:integer;
s,x:string;
begin
for i:=10 to 99 do s:=s+IntToStr(i);
writeln(s);
write('Введите число k: ');
readln(k);
x:=s[k];
writeln(k,'-я цифра: ',x)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
seredaromaxa
12.08.2019 08:40
Бухгалтер к какому программу относится?...
Ali20091
23.09.2019 05:10
Найти сумму трехзначного числа . паскаль. найти через цикл ,...
polisha014
23.09.2019 05:10
Какие алгоритмы называются линейными пример линейного алгоритма...
ksyusham041
23.09.2019 05:10
Напишите программу ввода с клавиатуры трех произвольных чисел x,y,z.программа должна найти наименьшее число из введёных и вывести его на экран...
HelenToys
23.09.2019 05:10
Определите необходимое количество слов компьютер которыми можно заменить информацию если известно что объём информациив книге 6 кбайт...
olgagolos
23.09.2019 05:10
Чему будет равна переменная с после выполнен я этой программы: a: =1024 b: =54 b: =a mod b + 4 c: =a mod b + 4 решить...
barslkbarslk
23.09.2019 05:10
Разработать схему алгоритма, который запрашивает ввод целого числа в переменную b и выводит это число на экран. отладить алгоритм и проверить правильность его работы...
natasha8952
23.09.2019 05:00
Решить! (завтра с/р по подобным ) составьте программы на алгоритмическом языке для решения следующих , выведите результаты: 1) найдите, сколько километров содержится...
Kroq123
23.09.2019 05:00
Из посёлка в город выехал мотоциклист со скоростью 15 км\ч в тоже время выехал ему навстречу велосипедист со скоростью 6 км\ч,они встретились через два часа.составьте...
hotrikplayp03euu
23.09.2019 05:00
Водной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке: роняет лес багряный свой убор, сребрит мороз...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
k,i:integer;
s,x:string;
begin
for i:=10 to 99 do s:=s+IntToStr(i);
writeln(s);
write('Введите число k: ');
readln(k);
x:=s[k];
writeln(k,'-я цифра: ',x)
end.