Сумма пар чисел кратных и некратных 11 с дельтой, Pascal

Сумма пар чисел кратных и некратных 11 с дельтой

{версия 10.07.18 17:45}
//var a : array [1..n] of integer = ( 55, 2, 11, 1, 3, 44, 4);
const n = 7;
const y = 11;
const d = 0;
var i, s, s11, s0, s_kr, s_nkr : integer;
var x : integer;
var m : array [0..d] of integer;
begin
  s := 0;  // искомое количество пар
  s11 := 0;  // количество чисел,которые кратны 11
  s0 := 0;  // количество чисел,которые некратны 11
  s_kr := 0; // количество кратных пар: 11*22 или 22*44
  s_nkr := 0;  // количество некратных пар: 11*3 или 55*2
  for i := 1 to d do
  begin
    readln (x);
    m[i] := x;
  end;
  for i := d+1 to n do
  begin
    readln (x);
    if ( m[0] mod 11 = 0 ) and  ( x mod 11 = 0 ) then
    begin
      s_kr := s_kr + s11; // важна именно такая посл-сть строк
      s11 := s11 + 1;
    end
    else if  (( m[0] mod 11 = 0  ) and  ( x mod 11 <> 0 )) or
             (( m[0] mod 11 <> 0 ) and  ( x mod 11 = 0  )) then
    begin
      s0 := s0 + 1;
    end;
    s_nkr := s11 * s0; // это считаем за скобками else, чтобы учесть все s11
    if ( m[0] mod 11 <> 0 ) and  ( x mod 11 <> 0 ) then
    begin
    // ничего не делаем
    end
  end; // конец цикла for
  s := s_kr + s_nkr;
  writeln ('s11=', s11, ' s0=', s0, ' s_kr=', s_kr, ' s_nkr=', s_nkr, ' s=', s);
  writeln ((s11-1)*s11 div 2 + s11*s0);
end.


run \| edit \| history \| help	0