Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
toxa08116
0 / 0 / 2
Регистрация: 09.11.2011
Сообщений: 57
#1

Получить буквосочетание, состоящее из его третьего и последнего символа - Turbo Pascal

29.06.2012, 08:17. Просмотров 728. Ответов 2
Метки нет (Все метки)


http://www.cyberforum.ru/turbo-pascal/thread355732.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.06.2012, 08:17
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Получить буквосочетание, состоящее из его третьего и последнего символа (Turbo Pascal):

Получить и вывести на экран буквосочетание, состоящее из его второго и четвертого символа
Дано слово. Получить и вывести на экран буквосочетание, состоящее из его...

Дано слово, состоящее из четного числа букв. Получить и вывести на экран его первую половину
Дано слово, состоящее из четного числа букв. Получить и вывести на экран его...

Удалить из текстового файла все его элементы, расположенные после последнего символа пробела, включая и этот пробел.
Дано текстовый файл, содержащий по крайней мере один символ пробела. Удалить...

Вывести все числа, для которых число, состоящее из первых двух его цифр, равно последней его цифре
Реализовать данные задания используя, цикл с параметрами. Причем вывести числа...

Удалить остаток строки файла после появления третьего заданного символа
Помогите пожалуйста. Исходный файл представляет собой текст. Удалить остаток...

2
Reveng
420 / 420 / 338
Регистрация: 25.06.2012
Сообщений: 666
Завершенные тесты: 1
29.06.2012, 10:38 #2
Лучший ответ Сообщение было отмечено toxa08116 как решение

Решение

Цитата Сообщение от toxa08116 Посмотреть сообщение
1. Работа с символами строки
Вводится слово. Получить и вывести на экран буквосочетание, состоящее из его третьего и последнего символа.
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var
   str: string;
BEGIN
ClrScr;
Write('Please enter the word: ');
Readln(str);
if Length(str) > 3 then Writeln('Result: ', copy(str,3,1), copy(str,Length(str),1))
 else Writeln('No Result');
Readln;
END.
0
enk
46 / 45 / 26
Регистрация: 16.06.2012
Сообщений: 177
29.06.2012, 10:46 #3
1.
Pascal
1
2
3
4
5
6
7
8
 program frst;
var
    s: string;
begin
    writeLn('Type string:');
    readLn(s);
    writeLn(s[3], ' - ', s[length(s)]);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.06.2012, 10:46
Привет! Вот еще темы с решениями:

Даны две цепочки символов. Вставить вторую цепочку в первую после третьего символа
Программисты,требуется ваша помощь.Помогите решить задачи Тема:строковые...

Получить на экране число, состоящее из одинаковых цифр
Помогите решить пожалуйста В калькулятор вводится натуральное число K и...

Длина последнего символа
Всем привет. Помогите, пожалуйста, написать программу. Вот условие: дана строка...

Разработка программы по замене одного символа на другой: из слова"фокус" путем замены его букв получить "покус".
Или хотябы подскажите функцию/оператор замены символа. Спасибо


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru