1. Найти максимальную (max) цифру, записью трехзначного числа. Например, дано число 364,...

Question

1. Найти максимальную (max) цифру, записью трехзначного числа.
Например, дано число 364, ответ: 6.
2. Дан треугольник с вершинами х1, у1; х2, у2; х3, у3. Найти площадь треугольника
ВСЕ ЗАДАНИЯ ВЫПОЛНИТЬ В ПРОГРАММЕ PASCAL ABC/
(формула для решения 2 задачи)

---

Answer 1

Номер 1
Program pr1;
var a,b,c,z:integer;
begin
readln(z);
a:= z div 100;
b:= z div 10 mod 10;
c:= z mod 10;
If (a>b) and (a>c) then writeln(a) else
If (b>a) and (b>c) then writeln(b) else writeln(c);
end.
НОМЕР 2
Program pr2;
var S,x1,y1,x2,y2,x3,y3:real;
begin
readln(x1,y1,x2,y2,x3,y3);
S:= sqrt((sqr(x2-x1))+(sqr(y2-y1)));
writeln(S);
end.