Дана трассировочная таблица. Определите, по какой формуле рассчитывается значение переменной S. S:= A mod S
S:= A + S
S:= A div S
S:= A / S

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

в одном байте восемь бит. следовательно 100/8=12.5

  ответ 12.5

var a: integer;

begin

  read(a);

  if a mod 3 = 0 then writeln('делится')

  else writeln('не делится');

  readln;

end.

наверно так

a: array [1..100] of longint