Не совсем поняла, зачем справа на лево.
program zzz;
begin
writeln (1/2+1);
end.
1027 = 1024 + 3 = 2¹⁰ + 2¹ + 2⁰
Каждое слагаемое - целочисленная степень двойки, поэтому оно даст в двоичном представлении одну единицу. Поскольку слагаемых три, то и единиц в записи числа будет три.
<u><em>Ответ: 3</em></u>
Var
m, n: integer;
begin
readln(m, n);
if (m mod n = 0) or (n mod m = 0) then
writeln(1)
else
begin
randomize;
writeln(random(50));
end;
<span>end.</span>
Var a,b: integer;
begin
readln(a,b);
if a>b then writeln(a) else writeln(b);
end.