Цитата:
Сообщение от vasilych
У воспитанных людей при обращении за помощью принято говорить "пожалуйста".
|
Сергей, это давно устарело и нынче не в моде. Мы же все всем обязаны нашим юным/ненаглядным, так что теперь - никаких архаичных "здравствуйте, помогите, пожалуйста..." и т.п., а так: получил задание - скинул на форум, и чтобы было в лучшем виде и быстренько у меня тут, а не то...
Grozaren, я, к сожалению (Вашему) у себя на компе всякой дряни типа лжеПаскаль АВС не держу, а вот на обычном нормальном (Free) Паскале задачка решается так:
Код:
Var
S:String;
k:Integer;
Begin
Writeln('Enter the string:');
Readln(S);
Write('k = ');
Readln(k);
Writeln(S[k]);
Readln
End.
Правда, этот Паскаль ограничивает длину строки числом 255. И, кроме того, я напрочь не понял, зачем и в какой связи в условии оговаривается количество латинских букв в алфавите. Ну да чем богаты...