Смоделируйте в электронной таблице (excel) работу восьмиразрядного сумматора

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,a12,a1,a2,a3,s: integer; begin readln(a); a1: =a div 100; a12: =a mod 100; a2: =a12 div 10; a3: =a12 mod 10; s: =a1+a2+a3; writeln(s); end.

a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа

пусть наше число а

ответ = а div 3(целая часть от деления на 3)

думаю код сам наберёшь