:с треугольник задан длинами сторон a, b, c.разработать схему алгоритма, определяющую, существует ли данный треуголльник.если треугольник существует, то установить значение флага f=1, иначе f=0.для решения данной использовать сложные логические условия.

var x,y,z,f: integer; beginread(x,y,z); if (x+y> z)and(x+z> y)and(z+y> x) then f: =1 else f: =0; writeln(f); end.

Program chik; const n=15; var p: array[1..15]of real; i: integer; s: real; begin s: =0; for i: =1 to n do begin read(p[i]); if(i mod 2=0)and(p[i]< 0)then s: =s+p[i]; end; writeln(s); end.2)program gt; uses crt,graphabc; const n=7; var mac1,mac2,mac3: array[1..15]of real; i,k1,k2: integer; begink1: =0; k2: =0; for i: =1 to n dobeginread(mac1[i]); if(mac1[i]> 0)then begininc(k1); mac2[k1]: =mac1[i]; end; if(mac1[i]< 0)then begininc(k2); mac3[k2]: =mac1[i]; end; end; for i: =1 to n dowrite(mac1[i],' '); writeln; for i: =1 to k1 dowrite(mac2[i],' '); writeln; for i: =1 to k2 dowrite(mac3[i],' '); end.

Var      m1,m2,m5,m10,m50,m100,m500,s: integer; begin  m1: =0; m2: =0;   m5: =0;   m10: =0;   m50: =0;   m100: =0;   m500: =0;   readln(s);   while s> 0 do  begin    if s> =500 then    begin      s: =s-500;       m500: =m500+1;     end    else      if s> =100 then      begin        s: =s-100;         m100: =m100+1;       end      else        if s> =50 then        begin          m50: =m50+1;           s: =s-50;         end        else          if s> =10 then          begin            s: =s-10;             m10: =m10+1;           end          else            if s> =5 then            begin              m5: =m5+1;               s: =s-5;             end            else              if s> =2 then              begin                m2: =m2+1;                 s: =s-2;               end              else              begin                m1: =m1+1;                 s: =s-1;               end;   end;   writeln('500р = ',m500);   writeln('100р = ',m100);   writeln('50р = ',m50);   writeln('10р = ',m10);   writeln('5р = ',m5);   writeln('2р = ',m2);   writeln('1р = ',m1); end.