1. Решите задачу не используя циклы! Дана строка.
a) Сначала выведите третий символ этой строки.
b) Во второй строке выведите предпоследний символ этой строки.
c) В третьей строке выведите первые пять символов этой строки.
d) В четвертой строке выведите всю строку, кроме последних двух символов.
e) В пятой строке выведите все символы с четными индексами (считая, что индексация начинается с 0, поэтому символы выводятся начиная с первого).
f) В шестой строке выведите все символы с нечетными индексами, то есть начиная со второго символа строки.
g) В седьмой строке выведите все символы в обратном порядке.
h) В восьмой строке выведите все символы строки через один в обратном порядке, начиная с последнего.
i) В девятой строке выведите длину данной строки.

Входные данные
Abrakadabra

Выходные данные
r
r
Abrak
Abrakadab
Arkdba
baaar
arbadakarbA
abdkrA
11

11ВР вот твои ответ не проси болше

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

составим уравнение:

x- первая корзина

y- вторая корзина

x+54=x+y

x-x+54=y

y=54 - (во второй корзине)

x=54+38

x=92

z- третья корзина

z=x-27

z=92-27

z=65

ответ: в третей корзине 65 орехов