Вычислить значение выражения. (турбо паскал)

​

Объяснение:

1) линейный, разветвляющийся, циклический

2) эллипс-начало и конец алгоритма

прямоугольник- выполнение действий

параллелограмм- ввод и вывод данных

ромб-принятие решений

3) во не понятен, но вероятнее всего : цикл "всегда"- не даёт скрипту закончить самому свою работу

цикл"повторить... раз" повторяет вложенные в него команды определенное количество раз

4) в зависимости от условия выполняется либо одна либо другая последовательность

5) нет определения где(пусть будет в скретч): всегда, когда щёлкнут по флажку; когда я получу, передать сообщение, касается; идти ... шагов; повернуться в направлении; скрыть переменную; показать переменную; когда клавиша ... нажата

6) цикл с предусловием, цикл с постусловием

7) ждать, повторить, всегда, есть... то, иначе, ждать до..., повторять пока не..., стоп

//длинная арифметика

begin

 var a := '123456789123456789';//ReadString();

 var b := '123456789123456789123';//...

 var l := Abs(a.Length - b.Length);

 var source := l*'0';

 if a.Length > b.Length then

     insert(source, b, 1)

 else

     insert(source, a, 1);

 var s := '';

 var mem := 0;

 for var i:=a.Length downto 1 do

 begin

   var c := a[i].ToDigit + b[i].ToDigit + mem;

   mem := c div 10;

   insert((c mod 10).ToString, s, 1)

 end;

 if (mem > 0) then insert('1', s, 1);

 s.Println;

end.