1.Ввести с клавиатуры две строки. Вывести на экран пары букв, стоящие на одинаковых местах в строке. {например: «СНИКЕРС» , «ЙОРГУРТ» ? СЙ, НО, ИР, КГ, …}
2.Ввести с клавиатуры строку и символ. Подсчитать сколько раз в строке встречается такой символ.
3.Ввести с клавиатуры строку. Вывести на экран пары рядом стоящих символов, добавляя к ним справа восклицательный знак. {например: «СНЕГУРОЧКА» ? СН!, ЕГ!, ГУ!, РО!, ЧК!, А!}
4.Ввести с клавиатуры строку. Вывести на экран пары симметричных относительно центра строки символов, обрамляя их знаками больше и меньше. {например: «ДЕЛЬТОПЛАН», <ДН!>, <ЕА>, <ЛЛ>, <ЬП>, <ТО> }
Помогите пожалуйста!!! Ну или хотя бы подскажите. Очень прошу помощи!
вторую я решила
5.Ввести с клавиатуры строку. Вывести на экран первую половину этой строки
6.Ввести с клавиатуры строку. Вывести на экран вторую половину этой строки
4.Ввести с клавиатуры строку. Вывести на экран сначала четные, а потом нечетные буквы.
7.Ввести с клавиатуры строку. Вывести на экран пары рядом стоящих символов, добавляя к ним справа
Вот ещё. Выручайте! Кому не сложно.
Все, что тебе нужно знать: обращаются к символу строки так же, как к элементу одномерного массива.
Пример:
Var
s1,s2:string;
BEGIN
readln(s1);
readln(s2);
{имеются условия, т.к. задача неполная: что если строки разной длины?}
if length(s1)>length(s2) then
for i:=1 to length(s2) do write(s1[i],s2[i])
else for i:=1 to length(s1) do write(s1[i],s2[i])
END.