Пожалуйста, представьтесь:

Алгоритмы с ветвлениями 5

1. Каков результат выполнения следующего алгоритма:

Var x, f: real;

Begin
   x:=1;
   if x<-2 then   f:=-2  else
   if x<=2 then f:=x*x*x else f:=x+2;
  Writeln('f=',f:7:3);
End.

f = 3.000

f = 1.000

 f = -2.000

f = 10.000

2. Каков результат выполнения алгоритма?

Var x, f: integer;

Begin
   x:=10;
   if x<-2 then   f:=-2  else
   if x<=2 then f:=x*x*x else f:=x+2;
  Writeln('f=',f);
End.

3. Каков результат выполнения алгоритма?

Var x, f: integer;

Begin
   x:=-10;
   if x<-2 then   f:=-2  else
   if x<=2 then f:=x*x*x else f:=x+2;
  Writeln('f=',f);
End.

4. Выберите правильно записанные команды:

  if  n>0 then k:=1 else k:=0;

 if  n mod 2 = 0 thn m:=1 else m:=0;

 if  n=int(n) then l=1 else l=0;

 read(n);

writen(m);

5. Каков результат выполнения данного алгоритма:

Var x, f: integer;

Begin
   x:=-22;
   if x<-122 then   f:=-2  else
   if x<=22 then  begin  if x mod 11=0 then f:=x+x+x else f:=x*4 end  else f:=x+2;
  Writeln('f=',f);
End.

-20

-88

-66

-2