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)
Верно ли я ввела? program Z_2; Var a, b, c:integer; Begin read (a, b, c) ; if (a>b) and (a>c) then write ('наибольшее', a) else if (b>a) and (b>c) then write ('наибольшее', b) else if (c>a) and (c>b) then write ('наибольшее', c) ; end.
Ответы (1)