Question

Помогите с первой задачей, пожалуйста.
pascal abc

Answer 1

var
  k, a, x: real;
  
begin
  readln(a, x);
  if (x > 0) then
    k := a
  else
    if (x = 0) then
      k := 2 * a
    else
      k := a / 2;
  writeln('y = ', k * k * k + tan(sqr(ln(2 * k))));
end.
-------------------------
///Вывод значения переменной А с тремя цифрами после запятой.
///Если okr = true, то округляет число, иначе отбрасывает лишние цифры.
procedure WriteReal(a: real; okr: boolean);
begin
  if (okr) then
    writeln(round(a * 1000) / 1000)
  else
    writeln(trunc(a * 1000) / 1000);
end;

begin
  writeln(sin(60));
  writereal(sin(60), true);
  writereal(sin(60), false);
end.
----------------------------
var
  R, r_: real;
-----------------------------
Такого оператора в Pascal нет (в других языках, таких как Java, C# и пр. это оператор инкремента, ++, но в Pascal есть процедура procedure inc(var i: integer), делающая то же самое
inc(N);