------------------
ЭВОЛЮЦИЯ
------------------
Э(Дана)-ВОЛЮ(Остаток от волка)-ЦИ(остаток от слова лицо)-Я(Дана)
поровоз вроде!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
В таких задачах идем с конца меняя знаки операций на противоположные, затем собираем алгоритм с конца меняя знаки операций:
50 / 2
25 - 1
24 / 2
12 / 2
6 / 2
3 - 1
2 / 2
1-1
0
Получим :21211121
<span>var m:array[1..100] of integer;
i,a,n:integer;
begin
write('Ââåäèòå Г°Г*çìåðГ*îñòü Г¬Г*Г±Г±ГЁГўГ*: ');readln(n);
write('Ââåäèòå ÷èñëî À: ');readln(a);
writeln('Ââåäèòå Г¬Г*Г±Г±ГЁГў: ');
for i:=1 to N do
readln(m[i]);
writeln('ГЊГ*Г±Г±ГЁГў: ');
for i:=1 to N do
M[i]:=m[i]-a;
for i:=1 to N do
write(M[i],' ');
end<span>.</span></span>