Какое обращение к процедуре S содержит ошибку? Procedure S (a:byte; b:real; var c:char) ; Begin c:=Chr (a) ; b:=b+a; end; Var x:byte; y:real; z:char; Begin ... S (x+2, y*y, z) ; S (1, 2, 'z') ; S (2, sin (y), z) ; S (x+x, x+y, z) ;
Ответы (1)
Сократите эту программу 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;
Ответы (1)