Program treyg;
uses crt;
var x1,y1,x2,y2,x3,y3 : integer;
a,b,c,s,p : real;
begin
write('Введите координаты первой точки: ');
Readln(x1,y1);
write('Введите координаты второй точки: ');
Readln(x2,y2);
write('Введите координаты третьей точки: ');
Readln(x3,y3);
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
if ((a+b)>c) and ((b+c)>a) and ((c+a)>b) then
writeln('Данные координаты не могут являться вершинами треугольника')
else
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('Площадь треугольника ',s);
end
end.
1. количество символов на одной странице 40*40=1600
2. Количество символов на всех страницах 1600*64=102400
3. Поскольку в КОИ-8 1 символ=1 байту, то объем информации на 64 страницах равен 102400 байт или 102400/1024=100 кбайт.
4. Верный ответ под номером 1, или 100 кбайт.
А := Массив случайных чисел(их количество = N)
Б := A[0]
цикл i (от 1 до N):
если остаток от деления A[i] на 2 (вроде - mod в паскале) = 0 то:
если A[i]< Б то:
Б := A[i]
Вывод(Б)
39 символов включая знаки препинания и пробелы в итоге.
39*2=78