Дайте відповіді на запитання 1. Для розв'язування яких задач опрацювання табличної величини
можна використати наведені фрагменти?
a) s:= 0; for i:=1 to 10 do s := s + a[i];
б) k := 0; for i:=1 to 10 do If a[i] < 0 Thеn k:= k + 1;
в) k := 0; for i:=1 to 10 do If a[i] = x Thеn k:= k + 1;
2. З якою метою у наведеному фрагменті використано змінну f?
f:= false:
for i:=1 to 10 do
If a[i] = x
Then begin
f:= true; break;
end;
Який тип цієї змінної? Чи можна було б із цією самою метою ви-
користати змінну іншого типу? Відповідь поясніть.
​

ответ: 9504 

var steps := 12; // За кол-во ходов
var Xend  := 6; // В точку с координатой X
var Yend  := 4; // ... и Y

var vars := 0; procedure Find(step, X, Y : Integer);

begin 
    if step = 0 then   
        vars += (X = Xend) and (Y = Yend) ? 1 : 0
    else   
        begin     
             Find(step - 1, X + 1, Y    );     
             Find(step - 1, X - 1, Y    );     
             Find(step - 1, X    , Y + 1);     
             Find(step - 1, X    , Y - 1);   
        end;
end; 
begin 
     Find(steps, 0, 0); 
     Print(vars);
end.

ответ: 5940

var steps := 12; // За кол-во ходов
var Xend  := 7; // В точку с координатой X
var Yend  := 3; // ... и Y

var vars := 0; procedure Find(step, X, Y : Integer);

begin  
    if step = 0 then    
        vars += (X = Xend) and (Y = Yend) ? 1 : 0
    else    
        begin      
             Find(step - 1, X + 1, Y    );      
             Find(step - 1, X - 1, Y    );      
             Find(step - 1, X    , Y + 1);      
             Find(step - 1, X    , Y - 1);    
        end;
end; 
begin  
     Find(steps, 0, 0);  
     Print(vars);
end.