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

[darkdrive]

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

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

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

[Malice]

1 - такая реализация пойдет ?

procedure kw (x,y:integer);
begin
if x=y then writeln (x,'x',x) else
 begin
   if x<y then begin
      writeln (x,'x',x); kw (x,y-x);
    end else   begin
      writeln (y,'x',y); kw (x-y,y);
   end;
 end;
end;

2- задача на div и mod, в факе есть куча примеров наверняка.

[darkdrive]

Можно по подробнее, дело в том что я в паскале никогда не работал, пишу на php,vb. С синтаксисом слабо знаком, попросили помочь с задачами, запустить эту так и не смог. Можно полноценно работающую программу, с вводом сторон с клавиатуры??

[Malice]

Можно по подробнее, дело в том что я в паскале никогда не работал, пишу на php,vb. С синтаксисом слабо знаком, попросили помочь с задачами, запустить эту так и не смог. Можно полноценно работающую программу, с вводом сторон с клавиатуры??

То, что было +:

var x,y:integer;
begin
write ('X='); readln (x);
write ('Y='); readln (y);
kw(x,y);
end.

[darkdrive]

угу, пасиб, работает, а если добавить условие - заполнить квадратами одинакого размера? )))

[Lapp]

угу, пасиб, работает, а если добавить условие - заполнить квадратами одинакого размера? )))

Тогда просто ищешь наибольший общий делитель - это и есть сторона крадрата.

[darkdrive]

а реализацию на паскале можно?? )