конкретно в каких стейтментах была ошибка , я не смог разобраться , но фактически у тебя
1.был не правильный вывод (m[1])
2.неправильная итерация по циклу с переменной 'с'
крч легче было просто переделать
var
c, n, i, j: integer;
m: array[1..1000] of integer;
begin
Readln(n);
for i := 1 to n do
begin
m[i] := i;
Write(m[i], ' ');
end;
writeln;
while n >= 1 do
begin
if c+2 < n then c := c + 3 else c := n - c + 3;
for i:=c to n do m[c]:=m[c+1];
n := n - 1;
end;
writeln(m[c]);
end.
Квадратные уравнения:
var a, b, c, d, x1, x2: real; begin readln(a, b, c); d:=sqr(b)-4*a*c; if d<0 then write('Нет корней!'); if d>0 then begin d:=sqrt(d); x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a); write(x1, ' ', x2); end; if d=0 then begin x1:=-b/(2*a); write(x1); end; end.Два числа
var a, b: integer; begin Read(A, b); if a > b then Writeln(A) else Writeln(B); end.