Var a,c,n,i,p: real; begin readln(c); a: =sin(c)-2/(sqr(c)*c); if a =0 then writeln(a); else for n: - id830520220200711 от fargustyana 11.07.2020 10:19

Question

Информатика: Var a,c,n,i,p: real; begin readln(c); a: =sin(c)-2/(sqr(c)*c); if a =0 then writeln(a); else for n: =1 to 28 do p: =(1+c)/n; writeln(p); end. в чем ошибка? дано с. вычислить: а = sinс- . если а ≥ 0, то напечатать а. если а 0, то вычислить р = , где n – натуральное число, изменяющееся от 1 до 28. результат напечатать.

fargustyana · Accepted Answer

===== PascalABC.NET =====type  Node = auto class    public       data: integer;      left, right: Node;  end;          procedure Add(var root: Node; x: integer);begin  if root = nil then  begin    root := new Node(x, nil, nil);    exit  end;  if root.data x then    Add(root.left, x)  else if root.data x then    Add(root.right, x)end;      procedure Postfix(root: Node);begin  if root = nil then exit;  Postfix(root.left);  Postfix(root.right);  Print(root.data)end;  begin  var s := Seq(51, 25, 73,...

MOGZ ответил