Uses Crt; Var a,b,i,tek,sum10,sum3:integer; Procedure TroichSS (te:integer; var sum3:integer); var m:array[1..10]of integer; k,j,su3:integer; begin write(te:4); repeat inc(k); m[k]:=te mod 3; te:=te div 3; until te<3; inc(k); m[k]:=te mod 3; for j:=k downto 1 do begin su3:=su3+m[j]; write(m[j]:3) end; write(' su3=',su3); sum3:=su3; su3:=0; k:=0; end; Procedure DesiatSS (te:integer; var sum10:integer); var m:array[1..10]of integer; k,j,su10:integer; begin write(te:4); repeat inc(k); m[k]:=te mod 10; te:=te div 10; until te<10; inc(k); m[k]:=te mod 10; for j:=k downto 1 do begin su10:=su10+m[j]; write(m[j]:3); end; writeln(' su10=',su10); sum10:=su10; su10:=0; k:=0; end; Begin //Задание интервала [a; b] a:=1; b:=1000; writeln('Интервале [a; b]',a:4,b:4); //Сумма цифр троичных и десятичных чисел for i:=a to b do begin TroichSS(i,sum3); DesiatSS(i,sum10); if sum3=sum10 then begin writeln('Э в р и к а!'); delay(5000); end; end; writeln('К о н е ц.'); End.
Var x1, y1, x2, y2, x3, y3, a, b, c, p, s: real; begin readln(x1, y1, x2, y2, x3, y3); a:=sqrt(sqr(abs(x1-x2))+sqr(abs(y1-y2))); b:=sqrt(sqr(abs(x2-x3))+sqr(abs(y2-y3))); c:=sqrt(sqr(abs(x1-x3))+sqr(abs(y1-y3))); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); if s=0 then write('Лежат на одной прямой') else write('Не лежат на одной прямой'); end.
Объясняю. Образуем из этих трёх точек треугольник. a, b, c - стороны треугольника. p - полу-периметр треугольника. s - площадь треугольника. Площадь вычисляется по формуле Герона. Если площадь равна нуля, значит точки лежат на одной прямой. Если нет - не лежат.
Объяснение:
перевод делается так
в числе три разряда (0, 1 и 2). каждый разряд - это восьмерка в степени номера разряда. То есть:
103₈ =1*8²+0*8¹+3*8⁰=64+0+3 = 67₁₀
аналогично для второго числа
147₈ = 8²*1+8¹*4+8⁰*7 = 64+32+7 = 103₁₀