- Задачи: 1.Дано начальное положение автомобиля на координатной прямой — А (одна клетка 1 км.). Затем автомобиль начал движение. Сначала он двигался со скоростью v1 км/ч вправо n1 часа, затем v2 км/ч Влево 2 часа Найти конечное положение автомобиля. Задача 3*. Знайка, Пилюлькин и Поночка решили научить Незнайку умножению. После урока они задали ему задачу: нужно в году рождения автора данной книги из библиотеки перемножить все цифры Незнайке составить такую программу.

program prim2; uses crt; var i, n, r: integer; a: array[1.. 10000] of integer; begin clrscr; randomize; write ('число элементов '); readln(n); for i: =1 to n do begin {получаем случайные числа и выводим их на экран.} a[i]: =random(45)-22; write(a[i],' '); end; {в полученном массиве меняем соседние элементы.} i: =1; {пока i< =n-1.} while i< =n-1 do begin {меняем значения соседних элементов. } r: =a[i]; a[i]: =a[i+1]; a[i+1]: =r; {увеличиваем индекс на два.} inc(i,2); end; {распечатываем измененный массив.} for i: =1 to n do write(a[i],' '); readkey; end.

на 1 дереве - 5 

на 2дереве - 7

а если число

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.

var i,s: integer;

begin

  for i: = 1 to 100 do

      s: = s+ i;

  writeln(s/100);

end.