Question

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

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