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

#include <stdio.h>
int main(void)
{
   float e;
   printf("e:");
   scanf("%f",&e);
   float ak1=1,ak=2,ak2;
   int k=2;
   while (fabs(ak-ak1)>=e) {
       ak2=ak1;
       ak1=ak;
       ak=(ak2+2*ak1)/3;
       ++k;
   }
   printf("K:%i\nA(k-1):%f\nAk:%f\n",k,ak1,ak);
   return 0;
}

import random

A,B = [random.randrange(1, 21) for i in range(0, 2)]
C = random.randint(1,min(A,B))
print("A = {0}, B = {1}, C = {2}".format(A,B,C))

a = int(A/C)
b = int(B/C)

print("Площадь прямоугольника:",A*B)
print("Площадь квадрата:",C*C)
print("Количество квадратов на прямоугольнике:",a*b)
print("Площадь незанятой части прямоугольника:",A*B - a*b*C*C)

A1 = A
n_A = 0
while A1 >= C:
    A1 -= C
    n_A += 1

B1 = B
n_B = 0
while B1 >= C:
    B1 -= C
    n_B += 1

k = 0
i = 0
while i < n_A:
    i += 1
    j = 0
    while j < n_B:
        j += 1
        k += 1
        
print(n_A,":",n_B)
print("Количество квадратов на прямоугольнике:",k)
									

program While30;
var
  A,B,Btemp,C:Real;
  K:integer;
begin
  Write('Введите A: ');
  Readln(A);
  Write('Введите B: ');
  Readln(B);
  Write('Введите C: ');
  Readln(C);
  K:=0;
 
  while (A-C>=0)do
   begin
    A:=A-C;
    Btemp:=B;
    while (Btemp-C>=0) do
    begin
     Btemp:=Btemp-C;
     inc(K,1);
    end;
   end;
  Writeln(k);
end.