354
235, 15
472, 35
417, 165
317, 35
Правильное утверждение под номером 2.
<em>var a, b, c, d, i, n :integer;</em>
<em>procedure swap (a, b :integer; c, d :integer);</em>
<em>begin</em>
<em> if a>b then begin c:=a; d:=a; end </em>
<em> else begin c:=b; d:=a; end;</em>
<em>end;</em>
<em>begin</em>
<em> read (a, b);</em>
<em> swap(a, b, a, b);</em>
<em> for i:=1 to a do if (a mod i=0) and (b mod i=0) then c:=i;</em>
<em> write (a*b/c);</em>
<span><em>end.</em></span>
begin
var a := MatrGen(10, 10, (i,j) -> Ln(Abs((i+1)*(j+1))));
a.Println(7, 4)
end.
Это робот, <span> исполнитель алгоритма</span>