Var a,b,c,min,max,s: integer;begin write('Ведите числo а '); readln(a); min:=a; max:=a; write('Ведите числo b '); readln(b); if b<min then min:=b; if b>max then max:=b; write('Ведите числo c '); readln(c); if c<min then min:=c; if c>max then max:=c; writeln('Минимальное - ',min); end.
кодек -кодекС
кодек - <span>шифратор/дешифратор</span>
<span> кодекс- свод законов</span>
<span>Uses crt;
var a,b,c:integer;
begin
read(a);
read(b);
read(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
begin
if ((a=b) and (b<>c)) or ((a=c) and (c<>b)) or ((b=c) and (c<>a)) then writeln('Triangle is isosceles');
if (a=b) and (b=c) and (a=c) then writeln('Triangle is equilateral');
if (a<>b) and (a<>c) and (b<>c) then writeln ('Triangle is scalene');
end
else writeln('Triangle is invalid');
end.</span>
Верхний правый угол нажми на свой аватал , там есть выход .