Программа для решения задачи:
var s:string; i,k,n:integer;
begin
s:='acacabbababaaaabacbb';
k:=0;
n:=length(s);
for i:=1 to n div 2 do
if s[i]<>s[n+1-i] then k:=k+1;
writeln(' количество замен = ',k);
<span>end.
количество замен = 9
</span>
Begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
program zakonnietona3;
uses crt;
var F1,F2: real;
begin
cls;
writeln('Третий закон Ньютона-тела действуют друг на друга с силами направленными ');
writeln('вдоль одной прямой,');
writeln(' равными по числовому значению и противоположны по направлению');
write('Введите первую силу');
read(F1);
F2:=-F1;
write('Вторая сила F2=',F2);
end.
Проанализировав таблицу, можем заметить, что стоимость между станциями В и D= 2, а этому условию соответствует одна единственная схема под номером 1. Ответ: 1