Укажите вариант, содержащие верную запись числа: 1)35721 (7) 2)3240 (4) 3)21ff (16)

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.  

на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а

графический файл состоит из 10000 точек.. используется всего два цвета, то есть на кодировку 1 цвета уходит 1 бит информации.. => 10000 бит

1)

vara, b: integer;

beginreadln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) thenwriteln('сумма цифр ', a, ' больше')elsewriteln('сумма цифр ', b, ' больше'); end.

2)

vara: integer;

beginreadln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

vara: integer;

beginreadln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) thenwriteln('есть 2 одинаковые цифры')elsewriteln('нет 2-х одинаковых цифр'); end.