От прямоугольника 324х141 отрезают квадраты со стороной 141, пока это возможно. Затем...

Question

От прямоугольника 324х141 отрезают квадраты со
стороной 141, пока это возможно. Затем вновь отрезают квадраты со стороной,
равной 324-2*141=42 и т.д. На какие квадраты и насколько будет разделен прямоугольник?
Решение программы в Pascal ABC

Comments

Не понимаю смысл фразы 'и тд'

Answer 1

Program chet;
var a,b,k,z:integer;
begin
a:=324;
b:=141;
k:=1;//т.к. как только a=b это +2 квадрата
while a<>b do
begin
if a>b then begin
a:=a-b;
k:=k+1;
writeln(b);
end
else
begin
z:=b;
b:=a;
a:=z;
end;
end;
writeln('Квадратов',k);
end.

P.S. Он будет ввыводить в столбик стороны квадртов и по склько брали этот квадрат.