1.Сколько двоек содержит десятичное число 89, записанное в системе счисления с основанием 3. 89 = 81 + 2*3 + 2 = 1*3^4 + 0*3^3 + 0*3^2 + 2*3 + 2 = 10022(3) Две двойки 2.Запишите десятичное число 63 в системе счисления с основанием 7. 63 = 49 + 14 = 7^2 + 2*7 = 120(7) 3.Определить старшую цифру системы счисления с основанием 20. Старшая цифра в любой системе на 1 меньше основания. То есть 19. Если переводить в буквы, то A=10, B=11, C=12, D=13, E=14, F=15, G=16, H=17, I=18, J=19 4.Вычислить 1DA15 + 4349 ->9 Учитесь ставить в скобки основание системы! 1DA(15) + 434(9) = 15^2+13*15+10+4*9^2+3*9+4 = 785 = 1062(9) 5.Какому десятичному числу соответствует число 12228221111112223 А это число в какой системе записано? Если в 3-ной, то там 8 не может быть.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 function IsPrime(n:integer):boolean; begin if n<4 then Result:=True else begin var found:= (n mod 2 = 0); var p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n mod p = 0); p+=2 end; Result:=not found end end;
begin Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println. Where(x->IsPrime(x)).Count) end.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 procedure IsPrime(n:integer; var res:boolean); begin if n<4 then res:=True else begin var found:= (n mod 2 = 0); var p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n mod p = 0); p+=2 end; res:=not found end end;
begin var a:=ArrRandom(ReadInteger('n='),1,999); a.Println; var k:=0; var prime:boolean; foreach var e in a do begin IsPrime(e,prime); if Prime then Inc(k) end; Writeln('k=',k) end.
a, b, alpha: real;
begin
writeln('Введите длины сторон и величину угла');
readln(a, b, alpha);
alpha := 0.5 * a * b * sin(alpha * pi / 180);
writeln('Площадь треугольника равна ' + alpha);
end.