Вспомни и запиши алгоритм нахождения периметра треугольника. 1 2) 3) 4)

1) (а+в)·2  2)  а·2+в·2  3) а+а+в+в  4) не знаю!

Рδ=(а+b)*2

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin   var a: =seqrandom(readinteger('n=',50).select(n-> double(n/;   a.foreach(x-> write(x: 0: 1,' ')); writeln;   writeln('сумма отрицательных: ',a.where(x-> x< 0).sum);   var p: =a.indexmin;   var q: =a.indexmax;   if p> q then swap(p,q);   writeln('произведение на интервале: ',           a[p+1: q].aggregate(1.0,(x,y)-> x*y));   writeln('сортировка: ');   a.sort; a.foreach(x-> write(x: 0: 1,' ')); writeln; end. пример n= 13 1.7 -0.8 -1.3 -1.4 5.0 -3.1 -0.7 -2.7 2.6 -4.9 4.0 -2.0 -2.0 сумма отрицательных: -18.9 произведение на интервале: -15.2334 сортировка: -4.9 -3.1 -2.7 -2.0 -2.0 -1.4 -1.3 -0.8 -0.7 1.7 2.6 4.0 5.0

Program dz; var n,i,k,j,f: longint;   a: array [1..10000] of longint; begin   k: =0;   read (n);   a[1]: =1;   a[2]: =1;   for i: =3 to 10000 do     begin       if not(a[i-1] < n) then       begin         break       end;       a[i]: =a[i-1]+a[i-2];       k: =k+1     end;   for i: =  1 to k do     begin       f: =0;       for j: =2 to a[i]-1 do         if a[i] mod j=0 then f: =1;         if f=0 then write (a[i],' ');     end; end. это для pascal