Просто нужно подставить
5*(-3)+2+5 не равно 4 да
5-2=-5 нет
5 mod 2=1 да
5 div 2=2 да
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
Var s : string;
i : integer;
begin
readln(s);
for i := 1 to length(s) do writeln(s[i]);
end.
1 кб = 1024 байт = 8192бит
32x64 пикселя - 2048 пикселей.
8192:2048 = 4 байта на 1 пиксель
2^4 = 16 цветов.