Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>
Закономерность количества символов:
1)1
2)3
3)7
4)15
5)15*2+1=31
6)31*2+1=63
7)63*2+1=127
Так как каждом действии концовка наших символов с 4 строки не сильно-то и изменяется, то присваиваем каждой букве число справа налево счтитая от 127 до 120
<span>7)............DCBAABA A C B A A B A A </span>
<span> 20 21 22 23 24 25 26 27 </span>
<span>Ответ: ACBA</span>
Program z1;Var Sum, a, i:integer;BeginSum:=0;5for i:=1 to 10 do begin read(a); if (a>=5) then Sum:=Sum+a; end;writeln(Sum);end.
Насколько я понял, задача на алгоритм
1)Открой портфель
2)Собери учебники
3)Собери принадлежности
4)Положи учебники по одному в портфель
5)Положи принадлежности по одной в портфель
6)Закрой портфель.
2 .взять портфель и поставить его на удобное место. Потом посмотреть расписание уроков. сложить вначале учебники, а потом тетради. положить пенал и нужные вещи в школе например: влажные салфетки и деньги что бы купить поесть в столовой. Застегнуть портфель.