Var a, b, c, D, x1, x2: longint;

begin

read (a, b, c) ;

D:=sqr (b) - 4*a*c;

x1: = (-b + sqrt (D)) div 2 * a;

x2: = (-b - sqrt (D)) div 2 * a;

write (x1,' ', x2) ;

end.

Почему выдает ошибку?

Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer) ; begin a:=sqr (a) ; b:=sqr (a) + a; end; procedure p2 (a, b:integer) ; begin a:=sqr (a) ; b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y) ;

Почему не выдает числа? uses crt; var i:integer; begin for i: = 100 to 999 do if i = ((sqr (i div 100) * (i div 100)) + ((sqr (i div 10) mod 10) * (i div 10) mod 10) + (sqr (i mod 10) * i mod 10)) then writeln (i) ; end.

Почему выводится ноль в программе? program pr1; var a: real; n: longint; function power (a:real; n:longint) : real; begin var i: integer; var anew: real; anew:=a; for i: = 2 to n do begin a:=a*anew; end; end; begin readln (a, n) ;

Где здесь ошибка? program P12; uses crt; var a, b, c:real; i, n:integer; function F (x:real) : real; begin f:=sqr (sqr (x)) + (sqr (x)) * x-8*x (sqr (x)) + 5*x-3-cos (2*x) ; end; begin clrscr; a:=0; b:=1; n:=20; for i:=1 to n do begin c: = (a+B) / 2;

Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;