Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end. Это?
<span>B1.
Числа:
35, 71</span>
В2.
<span>B3.
Заменим
числа в 5 первых ячейках на среднее и получим в сумме
5+24=120</span>
Х – число в 6 ячейке
(120+Х)/6 = 4
Х = -96
<span>В4.
в ячейке F4
будет формула
=$C6-I$3</span>
<span>С1.
8, 17, 26</span>
AAABB AABBA ABBAA BBAAA
AABAB ABAAB ABABA BABAA BAABA BAAAB
N= 5! / (3! *2!)=5*4/2=10
Var
n:integer;
a:real;
begin
writeln('введите число и степень');
readln(a,n);
writeln('степень : ', exp(ln(a)*n));
writeln('корень: ',exp(ln(a)*(1/n)));
end.