Алгоритм нахождения периметра треугольника

p = a + b + с т.е.сумма длин всех его сторон(из

периметр равен сумме всех сторон

program krugi;  

uses crt,graphabc; var i,x,y,rmax,rmin,n: integer; begin clrscr; write('количество окружностей: '); readln(n); write('введите x: '); readln(x); write('введите y: '); readln(y); write('введите максимальный радиус: '); readln(rmax); write('введите минимальный радиус: '); readln(rmin); setwindowsize(800,600); for i: =rmax downto rmin do    begin        if n=0 then break;         if (n=1) then circle(x,y,rmin) else            circle(x,y,i);             i: =i-5;           n: =n-1;         end; end.

 

 

 

 

program num3;

uses crt;

var a,b,c,n,s: integer;

 

begin

      clrscr;

      write('введите 3 числа: ');

      readln(a,b,c);

      n: =0; s: =0;

      if (a mod 2)=0 then 

              begin

                  n: =n+1;

                  s: =s+a;

              end;

 

if (b mod 2)=0 then 

              begin

                  n: =n+1;

                  s: =s+b;

              end;  

 

 

if (c mod 2)=0 then 

              begin

                  n: =n+1;

                  s: =s+c;

              end;

  if (n=0) then writeln('нету чётных чисел вообще ')

          else   writeln('количество чётных чисел: ',n,'их сумма: ',s);      

    readkey;

 

end.