1) 2^85=100...0 (2cc) (1 и 85 нулей)
8^25=(2^3)^25=2^75 =100..0 (2cc) (1 и 75 нулей)
4^6=2^12=100...0 (2cc) (1 и 12 нулей)
8=2^3=1000 (2cc) (1 и 3 нуля)
2) 2^12 +2^3= 1000000000000+1000=1 0000 0000 1000 (2cc) (две единицы)
3) 2^85-2^75= 11 1111 11110000...0 (десять единиц и 75 нулей)
4) 10 единиц+2 единицы=12 единиц
ответ 12
const
N=5;
var
a:array [1..N] of integer;
i,k,count:integer;
begin
for i:=1 to N do
begin
a[i]:=random(20);
write(a[i]);
end;
for i:=1 to N do
begin
count:=0;
k:=2;
if a[i] < 2 then count:=1;
while (k*k<=a[i]) and (count = 0) do
begin
if a[i] mod k = 0 then inc(count);
inc(k);
end;
if count = 0 then write(i);
end;
end.
program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.
К сожалению могу ответить только на второй вопрос. Во втором вопросе ответ "розовый", то есть 3)
Ну, если А и В задаются как угодно. Тогда задача имеет море способов решения.
К примеру:
А= 9
В= 4
9-4=5 и т.д