Прямоугольник - колличество квадратов в нем Опции

[darkdrive]

Помогите пожалуйста с решением:
1)Заданы размеры прямоугольника (вводятся 2 целых числа), Найти и напечатать покрытие этого прямоугольника наименьшим колличеством квадратов(список длинн сторон)

Задается целое число(вводится с клавиатуры), вывести по одной цифре(с повторами), из которых состоит это число

Сообщение отредактировано: darkdrive - 19.12.2007 1:29

[klem4]

ты бы хоть читал что пишешь ...

1)Заданы размеры прямоугольника (вводятся 2 целых числа),

[darkdrive]

мда, пардон.... просто изначально задача была с целыми числами, и разных размеров квадраты...
А потом дали похожую на ту...


В общем, Задается прямоугольник(вводятся два любых положительных числа), надо заполнить площадь прямоугольника максимально большими одинаковыми квадратами. Найти длинну квадрата, и колличество для заполнения.

Сообщение отредактировано: darkdrive - 21.12.2007 23:12

[Malice]

Все равно перебором, примерно так:

....
e:=false; n:=0;
repeat
inc (n);
if frac(y/(x/n))<0.0001 {сколько надо} then 
  begin
   writeln (n, ' x ',round(y/(x/n)),'(', (x/n):0:5,')'); e:=true;
  end;
until e;