Найдите ошибки в следующей программе:

Program int_r;

Var a, x: integer;

b, c: real;

Begin

a:=10;

b:=5.2;

x:=b div 2;

c: = round (x) ;

End.

Найдите ошибки в следующих программах: Program int_r; Var a, x:integer; b, c:real; Begin a:=10; b:=5.2; x:=b div 2; c:=round (x) ; End. Program int_r1; Var a, c:integer; b, d:real; Begin a:=25; b:=a/2; c:=sqr (a) ; d:=a mod 10; End.

Укажите области видимости в программе: 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;

Почему выводится ноль в программе? 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 sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; function stup (x: real; n: integer) : real; var i: integer; k: real; begin k:=1; for i : = 1 to n do k : = k * x; stup : = k; end;

Объясните строчку (c:=10*c+a mod 10; a : = a div 10;) program pr36; function qwer (var a, b: integer) : integer; var c: integer; begin c:=0; while a > 0 do begin c:=10*c+a mod 10; a : = a div 10; end; qwer: = c; end; var a, b: integer;