Uses crt; var a,b,c,x,max,min,sum,pr: integer; begin write('Введите число: '); readln(x); a:= x div 100; b:= x div 10 mod 10; c:= x mod 10; sum:=a+b+c; pr:=a*b*c; if a>b then begin min:=b; max:=a; end else begin max:=b; min:=a; end; if min>c then min:=c; if max<c then max:=c; writeln('Сумма цифр числа: ',sum); writeln('Произведение цифр числа: ',pr); writeln('Максимальная цифра: ',max); writeln('Минимальная цифра: ',min); end.
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны. Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 type Point=record x,y:real end;
procedure GetPoint(c:char;var M:Point); begin Write('Введите координаты точки ',c,': '); Read(M.x,M.y) end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin var A,B,C:Point; GetPoint('A',A); GetPoint('B',B); GetPoint('C',C); var ab:=Dist(A,B); var bc:=Dist(B,C); var ac:=Dist(A,C); if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then Writeln('Треугольник существует') else Writeln('Треугольник не существует') end.
Тестовое решение: Введите координаты точки A: -6.9 -5.3 Введите координаты точки B: 0 11.4 Введите координаты точки C: 9 3 Треугольник существует
var a,b,c,x,max,min,sum,pr: integer;
begin
write('Введите число: ');
readln(x);
a:= x div 100;
b:= x div 10 mod 10;
c:= x mod 10;
sum:=a+b+c;
pr:=a*b*c;
if a>b then begin
min:=b;
max:=a;
end
else begin
max:=b;
min:=a;
end;
if min>c then min:=c;
if max<c then max:=c;
writeln('Сумма цифр числа: ',sum);
writeln('Произведение цифр числа: ',pr);
writeln('Максимальная цифра: ',max);
writeln('Минимальная цифра: ',min);
end.