Много 1. написать программу, которая заполняет массив с клавиатуры целыми числами и распечатывает его элементы в обратном порядке. массив описывается через константу n. для проверки взять n=5. то есть выводится a[5], a[4], …, a[1]. пример выполнения программы: входные данные выходные данные 2 3 6 4 8 --> 8 4 6 3 2 2. написать программу, которая выводит на печать каждый третий элемент массива (или те элементы, индекс которых кратен 3 массив описывается через константу n. для проверки взять n=10. пример выполнения программы: входные данные выходные данные 1 2 3 4 5 6 7 8 9 10--> 3 6 9

1.
const n=5;
var
a: array[1..n] of integer;
i: integer;
begin
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
write(a[i], ' ');
end.

2.
const n=10;
var
a: array[1..n] of integer;
i: integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if i mod 3 = 0 then
write(a[i], ' ');
end.

1.
var x,y:integer;
begin
write('x = ');
readln(x);
if x>0 
 then y:=1
 else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.

Пример:
x = -5
y = -1

2.
var a,b,c,x1,x2,d:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d>0
 then begin
      x1:=(-b+sqrt(d))/(2*a);
      x2:=(-b-sqrt(d))/(2*a);
      writeln('x1 = ',x1,' x2 = ',x2);
      end
  else if d=0 then begin
                   x1:=-b/(2*a);
                   writeln('x = ',x1);
                   end
               else writeln('Корней нет');
end. 

Пример:
Введите a, b, c:
2 5 -3
x1 = 0.5 x2 = -3

3.
var a,b,c:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
if (a<=b)and(b<=c)
 then begin
      b:=a; c:=a;
      end
 else begin
      a:=-a; b:=-b; c:=-c; 
      end;
writeln('a = ',a,' b = ',b,' c = ',c);
end. 

Пример 1:
Введите a, b, c:
2 5 9
a = 2 b = 2 c = 2

Пример 2:
Введите a, b, c:
2 9 5
a = -2 b = -9 c = -5

Следующее число, большее 125₁₀, равно 126₁₀ или 1111110₂
Посмотрим, может ли оно получиться по заданному алгоритму.
На шаге 2а определяется "бит четности" путем подсчета количества единиц в двоичной записи числа. Если оно четно, к записи числа справа дописывается 0, если нечетно - единица.
На шаге 2б повторяются действия предыдущего шага.
Отбросим две правые цифры в записи 1111110₂ и посмотрим, как на получившемся числе работает предложенный алгоритм.
1111110 ⇒ 11111, число единиц нечетное, дописываем 1, получаем 111111, теперь число единиц четное, дописываем 0 и получаем 1111110, т.е. как раз то число, которое у нас было при переводе 126 в двоичную систему счисления.
А исходное число - это 11111₂ = 31₁₀
ответ: 31