Question

входной замок лисы алисы работает следующим образом: если введено натуральное число, которое меньше 100 или больше 999-на дисплее устройства появляется надпись false если у введённого числа сумма цифр равна 13-появляется enter и можно войти; в остальных случаях появляется надпись lock входные данные: натуральное число n (1 больше n меньше 10000 выходные данные: необходимо вывести надпись которая должна быть на дисплее пример ввод 2 вывод false ввод 427 вывод enter ввод 318 вывод lock

Answer 1

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
    var n := ReadLnInteger('n =');
    if (n < 100) or (n > 999) then begin
        writeln('FALSE');
        Halt;
    end;
    
    n := n div 100 + (n div 10) mod 10 + n mod 10;
    if n = 13 then
        writeln('ENTER')
    else
        writeln('LOCK');
end.