Program A1;
var a,b:Integer; {Можно и real}
begin
readln (a,b);
if a<b then writeln ('Число а больше числа б') else writeln ('Число б больше числа а');
end.
//Ошибка в if.
//В принципе можно обойтись и без вычисления s. Просто
//прерывать цикл при несовпадении двух шестеренок и
//выводить NO
var
n, s, i, m, m1: int64;
begin
s := 0;
Read(n, m1);
for i := 1 to n - 1 do
begin
Read(m);
if m = m1 then
S := s + 1;
m := m1;
end;
if (s = n - 1) then
Write('YES');
if (s <> n - 1) then
Write('NO');
end.
23C₁₆ = 2 · 16² + 3 · 16¹ + 12 · 16⁰ = 512 + 48 + 12 = 572₁₀
1101.1₂ = 1 · 2³ + 1 · 2² + 0 · 2¹ + 1 · 2⁰ + 1 · 2⁻¹ = 8 + 4 + 0 + 1 + 0.5 = 13.5₁₀
23.2₈ = 2 · 8¹ + 3 · 8⁰ + 2 · 8⁻¹ = 16 + 3 + 0.25 = 19.25₁₀