Question

Помогите с оператором case of

Answer 1

Ответ:

program z1;

var x:integer;

y:real;

begin

write ('x = ');  

read(x);

case x of

3: y:=-sqr(x);

4: y:=sqr(x)*x;

5: y:=x/2;

6: y:=x*5

else y:=0

end;

write ('y = ',y)

end.