110₂-10₂=100₂ на верхней ветке
100₂+110₂=1010₂=10₁₀
Если числа небольшие и X в N степени умещается в longint, то можно в цикле от 1 до n умножать на x
var i,x,n:integer;
l:longint;
begin
readln(x,n);
l:=1;
for i:=1 to n do
l:=l*x;
write(l);
end.
Ответ:
Program Massiv; //Заголовок программы
const n=12;
var i,m,p:integer; s: array[1..n] of integer;
begin
p:=1;
for i :=1 to n do
s[i]:= random (10,44);
for i :=1 to n do begin
if (s[i] mod 5) = 0 then p:= p * s[i];
end;
writeln(s);
if p = 1 then
write('Нет элементов кратных 5')
else
write('p = ', p);
end.
Объяснение:
программа описана в файле ворд
1)90 * 60=5400
5400*8=43200(байтов)
2)17*26=442
442*120=53040(точек)
3)53040 : 43200 как 10608:8640