Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
Думаю что 0.Символ ,,&"Нет в поисковой системе.Ну это не точно)
24 <span>различными способами могут попытаться сесть в ряд эти музыканты.
4! = 1*2*3*4 = 24
Может на цифрах понятнее:
1234 2134 3124 4123
1243 2143 3142 4132
1324 2314 3214 4212
1342 2341 3241 4231
1423 2413 3412 4312
1432 2431 3421 4321
(ПМ - 1 ; О - 2 ; К - 3 ; КМ - 4)</span>
Пусть чертежник изначально стоял в точке (0;0).
Выполняем алгоритм:
сместиться на(-3;-6) - чертежник будет в точке (-3;-6)
Дальше идет цикл, выполняющийся три раза.
Пусть команда1 будет такой: сместиться на(x;y).
Тогда за один проход цикла чертежник будет в точке (x+2+3;y-5+3)=(x+5;y-2)
За три прохода цикла чертежник будет в точке (3(x+5);3(y-2))=(3x+15;3y-6)
и не забываем, что до цикла, чертежник был в точке (-3;-6):
(3x+15-3;3y-6-6)=(3x+12;3y-12)
И теперь ему надо вернуться в исходную точку, т.е в точку (0;0).
3x+12=0
3x=-12
x=-4
3y-12=0
3y=12
y=4
При x=-4 и y=4 чертежник из точки (3x+12;3y-12) попадет в точку (0;0).
Ответ: 4) Сместиться на (-4;4)