39 в десятично равно 100111 в двоичной,
39:2=19 остаток 1
19:2=9 остаток 1
9:2=4 остаток 1
4:2=2 остаток 0
2:2=1 остаток 0
И 1 в конце
И получается 100111 в двоичной
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.MatchValues('[Нн]е').Count.Println
end.
Var
a, b: real;
begin
read(a, b);
if a = 0 then
writeln('x может принимать любое значение')
else
writeln('x = ', b / a);
end.
Const
n = 5;
var
arr: array [1..n] of integer;
i, max: integer;
begin
for i := 1 to n do
begin
write('A[', i, '] = ');
readln(arr[i]);
end;
max := 1;
for i := 1 to n do
if (max < arr[i]) and (arr[i] mod 5 = 0) then
max := arr[i];
if max = 1 then
writeln('No')
else
writeln(max);
end.