Пример 1
Дано слово "электродинамика". Получить из него слово "народ".
Решение:
Program p1;
Var s, t: string;
begin
s:='электродинамика';
t:=Copy(s, 10, 2)+Copy(s, 6, 3);
writeln('Ответ:',t);
end.
Пример 2
Дана строка. Найти позицию буквы 'a' в данной строке.
Решение:
Program p1;
Var s: string;
k: integer;
begin
Write('Введите строку ');
Readln(s);
k:=pos('a',s);
writeln(k);
end.
Пример 3
Дана строка. Вывести на экран ее последнюю букву.
Решение:
Program p1;
Var s: string;
n: integer;
begin
Write('Введите строку ');
Readln(s);
n:=length(s);
writeln(s[n]);
end.