Интересная на мой взгляд за задачки..., помогите решить... Опции

[vRs]

Доброго времени суток друзья! возникли вопросы по решению нескольких задачек, может быть кто-нибуть поможет бедному студенту ...а именно по повду задач:
1) дополнить число 42*4 так , чтобы полученное пятизначное число делилось на 72..
2)Дана действительная матрица размерностью m * n.Разместить все элементы матрицы по убыванию, применив пузырьковую сортировку справа на лево. Обход матрицы осуществлять по строкам.
а также помогите оформить через процедуру с параметрами и функцию ( т.е. в одной задаче использовать 2 подпрограммы). Текст программы:

program l;
uses crt;
var
k,zn:integer;
right,eps,left,r:real;
begin
clrscr;
writeln ('BBeguTe cTeneHb TO4HocTu');
readln (eps);
k:=2;
left:=1;
r:=1;
zn:=-1;
while (abs®>eps) do
begin
r:=zn/k;
left:=left+r;
zn:=-zn;
k:=k+1;

end;

right:=ln(2);
writeln ('JleBa9l cyMma: ',left:6:10,' npu6Jlu3uTeJlbHo paBHa',' npaBou cyMMe: ', right:6:10);
writeln(abs(left-right):1:10);
writeln(k-1);
readkey;
end.
Спасибо за внимание

[Michael_Rybak]

!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги code. 6. Одна тема - один вопрос (задача) Закрыто