Питання №1 ?



Які умовні оператори використовують в розгалуженнях?

if та for…in

відсутня правильна відповідь

if та if...else

if...else та for…in

Питання №2 ?



Що буде надруковане в результаті виконання фрагменту програми, якщо введено значення 58?

(Фото ниже)

116

29

58

110

Питання №3 ?



Який оператор відповідає наведеній блок-схемі?

(Фото ниже)

if a<5 :

a = a-1

else:

a = a+1

if a>5:

a = a+1

else:

a = a-1

if a>5 :

a = a-1

else:

a = a+1

if a>5 :

a = a+1

Питання №4 ?



Яких значень набуде змінна b після виконання умовного оператора Іf, якщо a =8?

(Фото ниже)(там в задании оденаковые фото как во 2)

16

9

8

5

Питання №5 ?



Даний алгоритм має назву.

(Фото ниже)

Неповне розгалуження

Вкладене розгалуження

Абсолютне розгалуження

Повне розгалуження

Питання №6 ?



Який оператор реалізує дію:

Якщо ціле число a парне, поділити його на 2

if a != b:

a = b

if a>b:

a = 0

else:

b = 0

if a<0:

a = –a

if a%2 == 0:

a = a//2

1)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i+j>5) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

2)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i>J) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

var  mas1, mas2: array[0..9] of integer;  t, k, i, j: integer; 
begin  
readln(t);  
readln(k);  
for j := 0 to 1 do  begin   
      if (j = 1) then writeln();        
                 for i := 0 to 9 do    begin      
                          if(j = 0) then begin       
                                  mas1[i] := random(100);        
                                    write(mas1[i], ' ');       
                                    if mas1[i] > t Then mas1[i] := mas1[i] + 4;      
                              end      
                            else 
                               begin       
                                      mas2[i] := random(100);        
                                      write(mas2[i], ' ');       
                                       if mas2[i] > 10 * K Then         
                                            mas2[i] := mas2[i] + K;      
                                end;    
                       end;       
                  for i := 0 to 9 do     
                         if (j = 0) then 
                               write(mas1[i]) 
                        else 
                                write(mas2[i]);    
               writeln();  
           end;  
readln();
end.

))