program z3;
var x1,x2,x3,y1,y2,y3,ac,ab,bc,a1,b1:real;f,f1:text;
begin
assign (f, 'z1.dat');
rewrite(f);
readln(x1,y1);
readln(x2,y2);
readln(x3,y3);
writeln(f,x1,y1);
writeln(f,x2,y2);
writeln(f,x3,y3);
close(f);
ac:=sqr(x1-x3)+sqr(y1-y3);
ab:=sqr(x2-x1)+sqr(y2-y1);
bc:=sqr(x3-x2)+sqr(y3-y2);
b1:=(ab+bc-ac)/(2*sqrt(ab*bc));
a1:=(ac+ab-bc)/(2*sqrt(ac*ab));
if (a1 < 0) or (b1 < 0) then
begin
assign(f1, 'z1.rez');
rewrite(f1);
writeln('na prodolzenue');
writeln(f1,'na prodolzenue');close(f1)
end
else
begin
assign(f1, 'z1.rez');
rewrite(f1);
writeln ('na otrezke');
writeln(f1,'na otrezke');
close(f1)
end
end.
В левом верхем углу есть закругленная стрелочка, она вернет :) Ну или зажать CTRL + Z
№5:
A1 = 1; B1 = 3; C1 = 5; D1 = 7
A2 = 5+1=6 ; B2 = 3/3+1 = 2; C2 = 7-5 = 2;
Для того чтобы найти D2, рассмотрим диаграмму, заметим, что:
Есть три одинаковые части, которые в сумме равны одной большой, из имеющихся данных выходит что мы имеем "большую" часть, равную 6
и две "малых", равные 2, тогда:
D2 = 6 - 2 - 2 = 2
Теперь подберем формулу которая будет иметь это значение.
Ответ: 3
№6:
Благодаря условию Фано, мы знаем, что любая закодированная запись должна быть раскодирована единственным вариантом.
Применяя данный в задании алфавит, выясняем, что закодированная запись это последовательность:
АЕАЛД
Получается у нас имеется 5 букв в последовательности.
Ответ: 4