Решение задачи While 29

#include <iostream>
#include <cmath>

using namespace std;

int main()
{
   float e;
   cout << "e:";
   cin >> e;
   float ak1=0,ak=2;
   int k=1;
   while (abs(ak-ak1)>=e) {
       ++k;
       ak1=ak;
       ak=2+1/ak1;
   }
   cout << "K= " << k << ", A(k-1)=" << ak1 << ", A(k)=" << ak;
   return 0;
}

import random

N = random.randrange(1,15)
eps = 1/10**N
print("N = ",N)
print("eps = ",eps)

A1 = 1
A2 = 2
A3 = (A1 + 2*A2)/3
print(1,":",A1)
print(2,":",A2)
print(3,":",A3)
k = 3
while abs(A3 - A2) >= eps:
    A2, A3 = A3, (A2 + 2*A3)/3
    k += 1
    print(k,":",A3)
print()
print(k,":",A2,":",A3)
									

program While29;
var
  k:Integer;
  Ak2,Ak1,Ak,e:Real;
begin
  Write('Введите e: ');
  Readln(e);
  Ak:=2;
  Ak1:=1;
  K:=2;
  while Abs(Ak-Ak1) >= e do
   begin
    Ak2:=Ak1;
    Ak1:=Ak;
    Inc(k,1);
    Ak:=(Ak2+2*Ak1)/3;
   end;
  Writeln(k,' ',Ak,' ',Ak1);
end.