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

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

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

uses graphabc;

var x:integer;

begin

   x:=6;

   if x mod 2=0 then rectangle(150,150,450,350) else circle(400,300,100);

   line(1,1,100,100);

end.

прямоугольник

круг

 прямоугольник и  линию

круг и линию

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

var x,k:integer;

begin

   x:=6;k:=5;

   if x mod 2=0 then k:=k+1 else k:=x;

   k:=k+4;

   writeln(k);

end.

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

Var x, к: integer;

Begin

   x:=88;

   if x mod 2 =0 then к:=x div 5 else к:=x div 8;

  writeln(k);

End.

4. Выберите правильное утверждение. Данный алгоритм определяет...

var n,k,m,l: integer;
begin
   read(n);
   if  n>0 then k:=1 else k:=0;

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

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

  writeln(k); writeln(m); writeln(l);
end.

положительность числа n

отрицательность числа n

четность числа n

нечетность числа n

целое число n или дробное

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

var n: integer;
begin
n:= -5;
if  n>0 then begin if n mod 5=0 then n:=n div 5 else n:=n mod 5; end; 
writeln(n);
end.

-1

0

-5