Одномерный массив с операторами mod и div . задан - вопрос №7117457 от Hapec 10.12.2020 10:08

Question

Информатика: Одномерный массив с операторами 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 в результате выполнения данного блока программы?

Hapec · Answer

ответ: 24, -16, 17.//Пруф://PascalABC.Net 3.2beginvar 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 dobegins3:=s3+3-A[i+1] div (A[i]-3);if (A[i]mod 3)=0then s1:=s1+(A[i]+4) div 2else s2:=s2-4+A[i+1] mod 5;end;print (s1, s2, s3);end....