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