Program z1;
var i:integer;
begin
for i:=99999 downto 723 do
if i mod 723=0 then
write (i,' ');
end.
<span>1) a=5
b=a*4
b= b div 7+a
a=3*(b div a)
a=5 b=20
a=5 b=7
a=3 b=7
2) a=129
b=a div 10
a=a-10*b=
b=b div
Что-то в двух последних строках не так...
3) a=145
b=a div 10
a= a-b
b=a div b
a=145 b=14
a=131 b=14
a=131 b=9
4)a=5
b=a*3
a=b mod 7+a
b=b mod a+4
a=5 b=15
a=6 b=15
a=6 b=7
5)a=5
a=2*a-3
b=12-21/a
b=3*b-a
</span>a=7 b=0
a=7 b=9
a=7 b=20
1. Наполнить ведро в 9 л
2. Перелить в 5 л и вылить; в результате в 9-литровом останется 4 л.
3. Перелить 4 л из 9-литрового в 5-литровое.
4. Наполнить опять 9-литровое.
5. долить из 9-литрового в 5-литровое 1 л; в результате в 9-литровом останется 8 л.
6. Вылить из 5-литрового воду.
7. Перелить из 9-литрового в 5-литровое 5 л.
8. В результате в 9-литровом останется 3 л.
Что и следовало получить.Короткая запись: 2 × 9 - 5 × 3 = 18 -15 = 3.