2-3 примера для решения которых необходимо построение или имитационной модели

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.

зачем вам такое старье?

1) и что с этим надо сделать. да ворд может создавать таблицы, они имеют какието границы. со связями не стыкалась но наверно и такое есть. может затянуть к примеру таблицу из екселя или аксеса

2)выделили нужные ячейки

  по горизонтали - есть кнопочкина панели(лево, право, по центру)

  по вертикали - пр кнопка-свойства ячеек - выравнивание- по вертикали-выбрать нужный вариант

так же можно обьеденять ячейки, менять направление текста, переносить или не переносить слова на новую строку, и тд

a=gets()

n=0

while a> 0 do

  n=n*10+a%2

  a=a/2

end

print(a)

блок схемы не умею