//прога на Pascal`e
var
n: uint64;
x : int64;
//
function f (a, p:int64):int64;
var i, sum: int64;
begin
sum:=1;
for i:=1 to p do
sum:=sum*(a-i);
f:=sum;
end;
//
begin
readln (x, n);
write (f(x, n));
end.
Монитор необходимо установить на такой высоте, чтобы центр экрана был на 15-20 см ниже уровня глаз, угол наклона до 15 градусов.
Первая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
a:=a + (n mod 10);
n:=n div 10;
end;
end.
Вторая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
if n mod 10>5 then
begin
a:=a + (n mod 10);
end;
n:=n div 10;
end;
end.
Из рук
из бутылки
из воздуха
Для палитры <span>16 777 216</span> необходимо 2^i = 16 777 216, i=24 бит
1024*768*24 = 18 874 368 бит
делим на 8 бит в байте = 2 359 296 байт
делим на 1024 байт в кб = 2304 кб
или же 2,25 мб