1. a :=x•x(1-умножение. a=x^2)
2. b :=x•a(2-умножение. b=x^3)
3. c :=b•b(3-умножение. c=x^6)
4. d :=c•c(4-умножение. d=x^12)
5. e :=d•d(5-умножение. e=x^15)
Последовательные двоичные код от 00 до 11 - это 00, 01, 10 и 11.
Нужно наибольшее число подряд идущих нулей. Двух рядом стоящих одинаковых букв в последовательности нет, значит 0000 быть не может. Поэтому наибольшее количество нулей будет равно 4, в таком случае код одной буквы будет равен 10, следующей после неё - 00, следующей - 01, то есть вместе они образуют комбинацию 10 00 01
Var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
<span>end.</span>
Ответ:
Program Scheme;
Var xn,xk,dx,x,s,p,k,y: Extended;
Label rep;
Begin
write('Enter xn: ');
readln(xn);
write('Enter xk: ');
readln(xk);
write('Enter dx: ');
readln(dx);
s:=0; p:=1; x:=xn; k:=0;
rep:
If x <= xk then
Begin
y:=exp(sin(x))*cos(x);
writeln('x = ',x:0:3, ' y = ', y:0:3);
if y >= 0 then
s:=s+y;
if y <> 0 then
p:=p*y;
x:=x+dx;
goto rep;
End
else
Begin
writeln('S = ', s:0:3, ' P = ', p:0:3, ' k = ', k:0:3);
exit;
End;
End.
Объяснение: Если есть вопросы, пишите в лс.
Http://i6.pixs.ru/storage/6/2/6/UntitledDi_7715465_30399626.png
