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

стороной 141, пока это возможно. Затем вновь отрезают квадраты со стороной,

равной 324-2*141=42 и т. д. На какие квадраты и насколько будет разделен прямоугольник?

Решение программы в Pascal ABC

Program chet;

var a, b, k, z:integer;

begin

a:=324;

b:=141;

k:=1; //т. к. как только a=b это + 2 квадрата

while ab 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. Он будет ввыводить в столбик стороны квадртов и по склько брали этот квадрат.