Одномерный массив с операторами mod и div . задан фрагмент программы: begin a[1]: = 103; a[2]: =25; a[3]: =15; a[4]: =32; a[5]: =27; a[6]: =14; a[7]: =31 a[8]: =11 for i=1 to 7 do begin s3: =s3+3-a[i+1] div (a[i]-3); if a[i]mod3=0 then s1: =s1+(a[i]+4)div2 else s2: =s2-4+a[i+1]mod5; end; какие значения примут переменные s1,s2,s3 в результате выполнения данного блока программы?
//Пруф:
//PascalABC.Net 3.2
begin
var a:=arr(103, 25, 15, 32, 27, 14, 31, 11);
var s1:=0; var s2:=0; var s3:=0;
for var i:=0 to 6 do
begin
s3:=s3+3-A[i+1] div (A[i]-3);
if (A[i]mod 3)=0
then s1:=s1+(A[i]+4) div 2
else s2:=s2-4+A[i+1] mod 5;
end;
print (s1, s2, s3);
end.