Var
a,b:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
if a=b then WriteLn(a,' = ',b)
else if a>b then WriteLn(a,' > ',b)
else WriteLn(a,' < ',b);
End.
(сумма любых двух цифр числа всегда ≤ 18)
1414 - суммы цифр могут быть только 14 и 14
148 - только 14 и 8
145 - только 14 и 5
214 не может быть такого результата, так как суммы цифр могут быть только 2 и 14, но записаны они в порядке возрастания.
515 - 5 и 15 - записаны в порядке возрастания, не соответ. условию.
814 - 8 и 14 - не соотв. условию
114 - 11 и 4 (но может быть и 1 и 14) , в принципе - такой результат возможен
ответ 5
Program x2;
var n:longint;
begin
Write('Введите n, n = ');
Readln(n);
While n mod 2 = 0 do
n:= n div 2;
If n=1 then Write('YES')
else write('NO');
<span>end.</span>