Переведем сначала все в двоичную:
88.45₁₀ = 64 + 16 + 8 + 45/100 = 1011000.001110011001₂
1 011 000.001 110 011 001₂ = 130.1421₈
101 1000.0011 1001 1001₂ = 58.399₁₆
Python 3.5
k = int(input())
s = 0
n = k*(k-1)+1
m = 0
while m < k:
s = s + n
n = n + 2
m = m + 1
print(s)
В июле1948 года Клод Шеннон, американский инженер и математик, впервые использовал слово "бит" в своей статье "Математическая теория связи". Там он предложил использовать это слово в качестве наименьшей единицы измерения информации.
Program p;
var i: integer;
quest:array [1..2] of string;
ans:array [1..2] of string;
answ:array [1..2] of string;
begin
quest[1]:='20*2=';
quest[2]:='3*5=';
ans[1]:='40';
ans[2]:='15';
for i:=1 to 2 do begin
writeln ('Вопрос номер ', i);
writeln (quest[i]);
write ('Ваш ответ - ');
readln (answ[i]);
while answ[i]<>ans[i] do
begin
writeln ('Ответ неверный, попробуйте снова');
readln(answ[i]);
end;
writeln ('Ответ верный');
writeln;
end;
writeln ('Congrats');
end.
Пример:
Вопрос номер 1
20*2=
Ваш ответ - 40
Ответ верный
Вопрос номер 2
3*5=
Ваш ответ - 10
Ответ неверный, попробуйте снова
14
Ответ неверный, попробуйте снова
15
Ответ верный
Congrats
Uses
graphABC;
const
W = 800; H = 500;
function F(x: real): real;
begin
F := x * x - x;
end;
var
x0, y0, x, y, xLeft, yLeft, xRight, yRight, n: integer;
a, b, fmin, fmax, x1, y1, mx, my, dx, dy, num: real;
i: byte;
s: string;
begin
SetWindowSize(W, H);
xLeft := 50;
yLeft := 50;
xRight := W - 50;
yRight := H - 50;
a := -2; b := 5; dx := 0.5;
fmin := -2; fmax := 5; dy := 0.5;
mx := (xRight - xLeft) / (b - a);
my := (yRight - yLeft) / (fmax - fmin);
x0 := trunc(abs(a) * mx) + xLeft;
y0 := yRight - trunc(abs(fmin) * my);
line(xLeft, y0, xRight + 10, y0);
line(x0, yLeft - 10, x0, yRight);
SetFontSize(12);
SetFontColor(clBlue);
TextOut(xRight + 20, y0 - 15, 'X');
TextOut(x0 - 10, yLeft - 30, 'Y');
SetFontSize(7);
SetFontColor(clRed);
n := round((b - a) / dx) + 1;
for i := 1 to n do
begin
num := a + (i - 1) * dx;
x := xLeft + trunc(mx * (num - a));
Line(x, y0 - 3, x, y0 + 3);
str(Num:0:1, s);
if abs(num) > 1E-15 then
TextOut(x - TextWidth(s) div 2, y0 + 10, s)
end;
n := round((fmax - fmin) / dy) + 1;
for i := 1 to n do
begin
num := fMin + (i - 1) * dy;
y := yRight - trunc(my * (num - fmin));
Line(x0 - 3, y, x0 + 3, y);
str(num:0:1, s);
if abs(num) > 1E-15 then
TextOut(x0 + 7, y - TextHeight(s) div 2, s)
end;
TextOut(x0 - 10, y0 + 10, '0');
x1 := a;
while x1 <= b do
begin
y1 := F(x1);
if ((x1 >= 1) and (x1 <= 2.5)) then
begin
x := x0 + round(x1 * mx);
y := y0 - round(y1 * my);
if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clBlue);
end;
x1 := x1 + 0.001
end
end.