Визначте значення змінної «a»після виконання фрагмента програми очень нужно
Ш

трех зайцев по углам, двоих вдоль стен

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.

var

a: array[1..100] of integer;

i,n: integer;

begin

readln(n);

writeln('исходный массив');

for i: =1 to n do

begin

a[i]: =random(50)-25;

write(a[i]: 4);

end;

writeln;

writeln('измененный массив');

for i: =1 to n do

begin

if a[i]=0 then a[i]: =n;

if a[i]< 0 then

if (a[i] mod 7=0) then a[i]: =abs(a[i])

else a[i]: =a[i]*(-2);

write(a[i]: 4);

end;

end.

var a,a1,a2,a3 : integer;  

begin

  readln(a);

  a1: =a div 100;

  a2: =(a mod 100) div 10;

  a3: =(a mod 100) mod 10;

  writeln(a1+a2+a3);

end.

  а - само число, а1-число сотен, а2-число десятков, а3-число единиц