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
1010,00100101(2) = 001 010,001 001 101(2) = 12,115(8)
1110,0101000(2) = 001 110, 010 100(2) = 16,24(8)
1000,1111001(2) = 001 000,111 100 100(2) = 10,744(8)
101011,11(2) = 101 011, 110(2) = 53,6(8)
1010,00100101(2) = 1010, 0010 0101(2) = A,25(16)
1110,0101000(2) = 1110,0101(2) = E,5(16)
1000,1111001(2) = 1000,1111 0010(2) = 8,F2(16)
101011,11(2) = 0010 1011, 1100(2) = 2B,C(16)
266(8) = 010 110 110(2) = 10110110(2)
266(16) = 0010 0110 0110(2) = 1001100110(2)
1270(8) = 001 010 111 000(2) = 1010111000(2)
1270(16) = 0001 0010 0111 0000(2) = 100100111(2)
10,23(8) = 001 000, 010 011(2) = 1000,001(2)
10,23(16) = 0001 0000, 0010 0011(2) = 10000,00100011(2)
11,1(8) = 001 001, 001(2) = 1001,001(2)
11,1(16) = 0001 0001,0001(2) = 10001,0001(2)
вот такая вот таблица истинности и схема
Var a,b,i,z:integer;y,x,h,k:real;
begin
write('введите a,b,h');read(a,b,h); k:=(b - a)/h;z:= round(k);
for i:=0 to z do begin
x:=a + h*i;
y:= x*x *sin(x*Pi/180);
write(x:6);writeln(y:21:6);<span>end;</span>
Я не стану выбирать С++ - это все же язык для решения совсем иных задач.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(9, -50, 50);
a.Println;
a.Fill(t -> 1);
a.Println
end.
<h2>1 3 17 -6 -22 19 -1 -29 -20</h2><h2>1 1 1 1 1 1 1 1 1</h2>