52=26 половина
26+20=46
52-46=6
6
Ответ:https://frillycarelessdatamining.crosser23.repl.run/
Объяснение:
Алг
нач
влево
вниз
нц пока снизу не свободно
влево
вниз
кц
кон
эту программу надо написать по правилам в Кумире
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
if s.MatchValue('[0-7]*')=s then Writeln('YES')
else Writeln('NO')
end.
<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>