Var n,a,b,c,d,i:integer;
begin
write('n = '); readln(n);
write('A и B: '); readln(a,b);
write('C и D: '); readln(c,d);
for i:=1 to a-1 do write(i,' ');
for i:=b downto a do write(i,' ');
for i:=b+1 to c-1 do write(i,' ');
for i:=d downto c do write(i,' ');
for i:=d+1 to n do write(i,' ');
end.
Пример:
n = 20
A и B: 5 10
C и D: 14 18
1 2 3 4 10 9 8 7 6 5 11 12 13 18 17 16 15 14 19 20
2) a: array[5..19] of integer т.к. сюда входят все числа от 5 до 19, включая границы
N(M)=N(И)+N(E)+N(K)
N(И)=N(B)+N(E)=(N(Б)+N(Ж)) + (N(Ж)+N(В))=1+1+1+2=5
N(E)=N(Ж)+N(В)=1+2=3
N(K)=N(Ж)+N(Е)=1+3=4
N(M)=5+3+4=12
Ответ: 12
1. 1*2=2 (1 команда)
2. 1+3=4 (2 команда)→дальше так же раскладываем 4 ( 4*2=8 (1ком.) и 4+3=7 (2 ком.)) и так далее. Получается 211121
var x,a,b,sum:integer;
begin
writeln ('Введите стоимость перчатки');
readln (x);
writeln ('Введите стоимость сумки');
readln (a);
writeln ('Введите стоимость ремня');
readln (b);
sum:=a+b+x;
if (sum>800) then writeln (sum-(sum/100*10));
if (sum<800) then writeln (sum);
end.