Program kod; Var q, w, e, r, t, y, u, i, x:integer; Begin write (q, w, e, r, t, y, u, i) ; if q=1 then x + (1*2*2*2*2*2*2*2) ; if q=0 then x+0; if w=1 then x + (1*2*2*2*2*2*2) ; if w:=0 then x+0; if e=1 then x + (1*2*2*2*2*2) ; if e=0 then x+0;
Ответы (1)
Какое обращение к процедуре 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)
Program2. pas (29) : Нельзя преобразовать тип function (x: real; eps: real) : real к real var a, i, s, r, j, t, x, eps: real; function v (x, eps: real) : real; begin i : = 1; s : = 0; a : = 1; t : = 1; r : = 1;
Ответы (1)