Помогите срочно прошу! Решите задания, 1)Использовать для решения задач такую

Здесь нет к второму заданию решения

Во втором задании во втором тесте иной результат выходит, не 143702, а 122324, 2-ой тест у Вас не пройдет, потому и не стал записывать решение. Текст программы могу выложить. var k,n,i,j,dk,k3,k5: integer; a: array[1..3] of integer;begin write('k n через пробел: '); readln(k,n); for i:=1 to 3 do a[i]:=0; for i:=1 to n do begin for j:=3 downto 2 do a[j]:=a[j-1]; dk:=a[3]; a[1]:=k; k3:=k div 3; while (k-k3*3) mod 5<>0 do k3:=k3-1; k5:=(k-k3*3) div 5; k:=k+k3*5+k5*9-dk; end; writeln(k);end.

Отыскал ошибку в программке. Необходимо поменять строчку a[1]:=k; на строчку a[1]:=k-a[2]-a[3];

Всё равно огромное спасибо!)

Пожалуйста.