Question

Где ошибка? Pascal abc не выдаёт ответ!!! Как сделать через div Пожалуйста помогите!)) Program p_1; Var a,b,c,d,e:integer; Begin a:=5; b:=3; c:=6; d:=12; e:=(a+b)*c/d)^2; Writeln (e); End.

Answer 1

Может так задумывалось?
Var a,b,c,d:integer;Var e:real;Begina:=5;b:=3;c:=6;d:=12;e:=sqr((a+b)*c/d);Writeln (e);End.

Answer 2

В вашем коде есть несколько ошибок:

1. В строке e:=(a+b)*c/d)^2; лишняя закрывающая скобка. Правильный вариант должен выглядеть так: e:=((a+b)*c/d)^2;.

2. В Pascal ABC используется оператор div для целочисленного деления. В вашем случае, вы пытаетесь делить целые числа, так что выражение ((a+b)*c/d) будет целочисленным делением. Если вы хотите получить вещественный результат, вам нужно сделать один из операндов в выражении ((a+b)*c/d) вещественным. Например:

   pascalCopy code
   e:=((a+b)*c/d)^2;
   

   можно изменить на

   pascalCopy code
   e:=((a+b)*c/d)^2.0;
   

После внесения этих изменений ваш код должен выглядеть так:

pascalCopy code
Program p_1;
Var a,b,c,d,e:integer;
Begin
  a:=5;
  b:=3;
  c:=6;
  d:=12;
  e:=((a+b)*c/d)^2.0;
  Writeln(e);
End.

Теперь ваша программа должна корректно компилироваться и выполняться.