var n,k,s:integer;
begin
s:=1;
write ('Введите число: ');
readln(k);
write ('Введите степень: ');
readln(n);
for n:=1 to n do
begin
s:=s*k;
writeln('степень: ',n,' результат: ',s)
end
end.
2048=2^11 1536 = 1,5*1024=1,5*2^10
F = 3*2048*1536 =
=3*1,5*2^10 *2^11 (байт) =4,5*2^11 Кбайт =4,5 *2 Мбайт =9 Мбайт
Зависит от того, в какой кодировке написано письмо, сжато или нет, какой байт используется в данной компьютерной системе, в конце концов как измеряется информационный объём сообщения. Однозначного ответа тут быть не может. Можешь написать 672 и 84, положив кодировку однобайтовой, но это не решение.
Для целесообразности вместо корня из 1 заранее используется 1 (поскольку нет нужды вычислять).
--- КОД ПРОГРАММЫ НИЖЕ ---
// Проверено в PascalABC.NET (версия 3.2, сборка 1363)
program zz;
var
n, i, u, d, f, c, ff, cc: integer;
y: real;
procedure GetDiv();
begin
ff := f;
cc := c;
d := 0;
while cc > 0 do
begin
d := d + ff;
ff := ff + 1;
cc := cc - 1;
end;
end;
function Facto(num: integer): integer;
var
ff, fi: integer;
begin
ff := 1;
for fi := 2 to num do
ff := ff * fi;
Facto := ff;
end;
begin
write('n = ');
readln(n);
y := 0;
f := 2;
c := 2;
for i := 1 to n do
begin
u := Facto( n - (i - 1) );
if i = 1 then
d := 1
else
begin
GetDiv();
f := ff + 1;
c := c + 1;
end;
y := y + (u / d);
end;
writeln('y = ', y);
end.
#include <iostream>
using namespace std;
int main()
{
int k;
cin >> k;
int h = k % 1000 / 100;
cout << h <<endl;
system("pause");
}
Пример:
130985
9
