9класс. дан прямоугольник и его стороны а и б. нужно найти кол-во всех квадратов. то есть например мы делим пр/уг и остается остаток в виде прямоугольника, это мы тоже делим. нужно использовать либо while, либо repeat. pascal abc

Var a,b,k:integer;
begin
writeln('a, b:');
readln(a,b);
k:=0;
while a<>b do
 begin
 k:=k+1;
 if a>b
  then begin writeln(k,': ',b,'*',b); a:=a-b; end
  else begin writeln(k,': ',a,'*',a); b:=b-a; end;
 end;
k:=k+1;
writeln(k,': ',a,'*',a);
writeln('k = ',k);
end.

Пример:
a, b:
3 8
1: 3*3
2: 3*3
3: 2*2
4: 1*1
5: 1*1
k = 5

2-ое задание:

#include <iostream>

int main() {

int number;

std::cout << "Введите число: " << std::endl;

std::cin >> number;

if (number > 0)

 std::cout << "Положительное" <<std::endl;

else if (number < 0)

 std::cout << "Отрицательное" << std::endl;

else

 std::cout << "Ноль" << std::endl;

return 0;

}

1-ое задание:

#include <iostream>

int main() {

double dollars, grivnas;

std::cout << "Введите кол-во долларов: " << std::endl;

std::cin >> dollars;

grivnas = dollars * 28.3;

std::cout << dollars << " доллар-(а, ов) в гривнах " << grivnas << std::endl;

return 0;

}

Объяснение:

#include <iostream>

#include <vector>

using namespace std;

int am_dig(int k){

   int res = 0;

   while(k > 0){

       res++;

       k /= 10;

   }

   return res;

}

double average(vector<double> a){

   double sum = 0;

   for(auto i: a)

       sum += i;

   return sum/a.size();

}

int main() {

   vector<double> a;

   double x = 1;

   while(x != 0){

       cin >> x;

       if(am_dig(x) == 3)

           a.push_back(x);

   }

   if(a.size() == 0)

       cout << "NO";

   else

       cout << average(a);

}