решить это задание на Значение выражения 3435 + 73 − 1 − X записали в системе счисления с основанием 7, при этом в записи оказалось 12 цифр 6. При каком минимальном целом положительном X это возможно?
Uses crt; var item, rub, doll: real; job: integer; begin writeln('Введите курс ру по отношению к дол: '); read(item);//Вводим курс рубль-доллар writeln('Перевести из (рубля в доллар(2)) или (доллар в рубль(1))?'); read(job);//Вводим режим case job of 2: begin writeln('Введите кол-во рублей: '); read(rub);//Вводим рубль rub := rub / item; writeln('doll = ',rub); end; 1: begin writeln('Введите кол- во долларов: '); read(doll);//Вводим доллар doll := doll * item; writeln('rub = ',doll); end; end; end.
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 type Point=record x,y:real end;
function GetPoint(c:char):Point; begin Writeln('Введите координаты точки ',c,':'); Read(Result.x,Result.y) end;
function Line(A,B:Point):real; begin Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
function SqTriangle(pA,pB,pC:Point):real; begin var a:=Line(pB,pC); var b:=Line(pA,pC); var c:=Line(pA,pB); if (a+b>c) and (a+c>b) and (b+c>a) then begin var p:=(a+b+c)/2; Result:=sqrt(p*(p-a)*(p-b)*(p-c)) end else Result:=0 end;
begin var A:=GetPoint('A'); var B:=GetPoint('B'); var C:=GetPoint('C'); Writeln('Площадь треугольника равна ',SqTriangle(A,B,C)) end.
Тестовое решение: Введите координаты точки A: -5 3.18 Введите координаты точки B: 1.45 6.2 Введите координаты точки C: 6 -5.93 Площадь треугольника равна 45.98975
for i in range(1,3000):
ct = 0;
n = 343**5+7**3-1-i;
while n>0:
if n%7 == 6:
ct+=1;
n = n//7;
if ct == 12:
print(i);
break;
ответ: 400.