Question

Pascal. Срочно нужна помощь, прошу

Answer 1

var
  i:integer;
  a:array[1..4] of integer;
begin
  for i:=1 to 4 do Read(a[i]);
  for i:=1 to 4 do
    if a[i]<>a[1] then
      begin Writeln(i); break end
end.

*************************************

// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
(в других "паскалях" может не оказаться тангенса)

var
  x,y:real;
begin
  Read(x);
  if x<0 then y:=exp(cos(x))
  else
    if x>1 then y:=sqrt(tan(x*x-1))
    else y:=-2*x;
  Writeln(y)
end.

Answer 2

Спасибо