<span>(2400 *8) бит : 8 бит = 2400 пикселей
</span>
Получатся числа 16 15 5 4 3 1
Сумма=44
function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
Var
r,a:real;
begin
readln(a);
a:=a*100;
r:=a/4.45;
writeln(r:0:5);
end.<span>
</span>
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var n:=ReadInteger;
var p:=1.0;
for var i:=1 to n do p:=p*i;
write(p);
end.