Готовые дипломные, курсовые, рефераты. Вы можете бес-платно скачать любую понравившуюся работу.
ГОТОВЫЕ РАБОТЫ
ПОХОЖИЕ ВОПРОСЫ
Сегодня примерно в 20:30 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.
От прямоугольника 324х141 отрезают квадраты со
стороной 141, пока это возможно. Затем вновь отрезают квадраты со стороной,
равной 324-2*141=42 и т.д. На какие квадраты и насколько будет разделен прямоугольник?
Решение программы в Pascal ABC
Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:
От прямоугольника 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. Он будет ввыводить в столбик стороны квадртов и по склько брали этот квадрат.