1) программа дешифратор.
2) прога для 3D моделей. (3D Studio Max)
Опустить перо
повернуть налево
идти
повернуть налево
идти
повернуть налево
идти
повернуть направо
идти
повернуть направо
идти
поднять перо
<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Pow(x,y:BigInteger):BigInteger;
begin
Result:=x;
for var i:=int64(2) to int64(y) do Result*=x
end;
begin
var x,y:integer;
Write('Введите натуральные х и у: '); Read(x,y);
if (x<=0) or (y<=0) then begin
Writeln('Неверный ввод'); Exit
end;
if x=1 then Writeln('Результат: ',y+1)
else begin
var x1:=Range(2,x).Aggregate(BigInteger(1),(a,b)->a*b);
Writeln('Результат ',Pow(x,y)+Pow(y,x1))
end
end.
<u>Пример</u>
Введите натуральные х и у: 5 8
Результат 2348542582773833227889480596789337027375682548908319870707290971532209025114608443463698998384768703032325601
//PascalABC.Net 3.1.0.1200
var
x0, xk, h, e, x, a, s: real;
i: integer;
begin
readln(x0, xk, h, e);
x := x0;
repeat
a := 1 / 2 / 3;
s := a;
i := 0;
repeat
i := i + 1;
a := a * (-1) * x * x / (2 * i + 1) / (2 * i);
s := s + a;
until abs(a) < e;
writeln(s:15:5, ' ', (sin(x) / x):15:5);
x := x + h;
until x >= xk;
end.
<em>1) 100001100 = 1∙2^8 + 0∙2^7 + 0∙2^6 + 0∙2^5 + 0∙2^4 + 1∙2^3 + 1∙2^2 + 0∙2^1 + 0∙2^0 = 268</em><span>
<em>2) путем долгого деления получилось 10001001</em>
<em>3 a) </em></span><em>151 = 1∙8^2 + 5∙8^1 + 1∙8^0</em><span><em> = 105</em>
</span><em>3 б) 2C</em><span><em> = 2∙16^</em></span><em>1</em><span><em> + C∙16^</em></span><em>0</em><span><em> = 44</em></span>