• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Последовательность букв. PascalABC

grozaren

Ученик
Регистрация
18 Дек 2016
Сообщения
6
Реакции
0
Баллы
0
Последовательность букв. PascalABC

Дана последовательность буке латинского алфавита abac...azbobbbc ...zzoaaoabaoc.... Разработайте программу которая устанавливает букву которая находится на К-ом месте. Надо отметить что латинский алфавит содержит 26 букв от a до z ВХОДНЫЕ ДАННЫЕ: натуральное число К, представляющее порядковой номер буквы в последовательности
ВЫХОДНЫЕ ДАННЫЕ:буква которая находится на К-ом месте
ОГРАНИЧЕНИЕ: 1<=K<=1000
 
А ЯП какой? Телепаты уже к Новому Году готовятся...
 
Написано же в теме .Pascal
 
Разработайте программу которая устанавливает букву которая находится на К-ом месте
У воспитанных людей при обращении за помощью принято говорить "пожалуйста".
 
У воспитанных людей при обращении за помощью принято говорить "пожалуйста".
Сергей, это давно устарело и нынче не в моде. Мы же все всем обязаны нашим юным/ненаглядным, так что теперь - никаких архаичных "здравствуйте, помогите, пожалуйста..." и т.п., а так: получил задание - скинул на форум, и чтобы было в лучшем виде и быстренько у меня тут, а не то...
Grozaren, я, к сожалению (Вашему) у себя на компе всякой дряни типа лжеПаскаль АВС не держу, а вот на обычном нормальном (Free) Паскале задачка решается так:
Код:
Var
 S:String;
 k:Integer;

Begin
 Writeln('Enter the string:');
 Readln(S);
 Write('k = ');
 Readln(k);
 Writeln(S[k]);
 Readln
End.
Правда, этот Паскаль ограничивает длину строки числом 255. И, кроме того, я напрочь не понял, зачем и в какой связи в условии оговаривается количество латинских букв в алфавите. Ну да чем богаты...
 
Назад
Сверху