Можно фото???Ато не понятно
Var k,n:integer;
begin
n:=1;
k:=2;
while k<=45 do
begin
n:=n+1;
k:=k*2;
if n mod 7 = 0 then k:=k-23;
end;
writeln('n = ',n,' k = ',k);
end.
Результат:
n = 6 k = 64
Корень (корень(x) -3 * x + 8)
Отличный вопрос, друг. Давно я таких интересных задачек не видел