Question

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

Answer 1

Var a,n,p,m:integer;
beginread(a);if (a<1000) and (a>99) then   begin   n:=   a mod 10 ;   a:= a div 10;   p:= a mod 10;   a:= a div 10;   m:= a mod 10;   if n+p+m=13 then   writeln ('ENTER')   else     writeln ('LOCK');
   end   else writeln ('FALSE');
end.