0 / 0 / 0
Регистрация: 14.11.2013
Сообщений: 7
1

Входной замок Лисы Алисы

14.11.2013, 13:26. Показов 7119. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Входной замок Лисы Алисы работает следующим образом: если введено натуральное число, которое меньше 100 или больше 999 - на дисплее устройства появляется надпись «FALSE»; если у введенного числа сумма цифр равна 13 - появляется надпись «ENTER» и можно войти; в остальных случаях появляется надпись «LOCK».
Входные данные: натуральное число N (1≤N≤10000).
Выходные данные: необходимо вывести надпись, которая должна быть на дисплее.
Примеры:
Ввод: 2 Вывод: FALSE
Ввод: 427 Вывод: ENTER
Ввод: 318 Вывод: LOCK
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.11.2013, 13:26
Ответы с готовыми решениями:

Перехват сообщений от Алисы
Здравствуйте. Кто ни будь пробовал перехватывать сообщения голосового помощника Алисы? Fiddler...

Asus x52d горит одновременно два индикатора "замок открыт" и "замок закрыт"
При включении ноутбука Asus x52d горит одновременно два индикатора "замок открыт" и "замок закрыт",...

Падение лисы
Здравствуйте. У меня проблема с лисой(mozilla firefox) сдишь через нее на любом сайте открыто...

Игра "Курицы и Лисы" - Компьютер плохо управляет лисицами
Делаю курсовую, "Курицы и лисы". Короче: игровое поле 7 на 7, кроме углов. Надо, чтобы курицы...

4
Супер-модератор
6165 / 2908 / 1299
Регистрация: 04.03.2013
Сообщений: 5,769
Записей в блоге: 1
14.11.2013, 14:25 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  n : integer;
begin
  repeat
    write('введите код доступа: ');
    readln(n)
  until n in [1..10000];
  if not (n in [100..999]) then writeln('FALSE') else
    if (n mod 10) + ((n mod 100) div 10) + (n div 100)  = 13 then writeln('ENTER') else
      writeln('LOCK')
end.
0
17 / 17 / 13
Регистрация: 31.03.2012
Сообщений: 86
14.11.2013, 18:45 3
Цитата Сообщение от ildwine Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  n : integer;
begin
  repeat
    write('введите код доступа: ');
    readln(n)
  until n in [1..10000];
  if not (n in [100..999]) then writeln('FALSE') else
    if (n mod 10) + ((n mod 100) div 10) + (n div 100)  = 13 then writeln('ENTER') else
      writeln('LOCK')
end.
А зачем при вводе допустим 100000. Он меня просит снова ввести?
Ошибка в коде.
0
Супер-модератор
6165 / 2908 / 1299
Регистрация: 04.03.2013
Сообщений: 5,769
Записей в блоге: 1
14.11.2013, 18:48 4
Цитата Сообщение от Алина01 Посмотреть сообщение
Входные данные: натуральное число N (1≤N≤10000).
По условию сказано, отработал защиту
0
17 / 17 / 13
Регистрация: 31.03.2012
Сообщений: 86
14.11.2013, 18:50 5
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
VAR
  N: INTEGER;
BEGIN
  WRITE('Введите код доступа: ');
  READLN(N);
  IF (N > 10000) OR (N < 1)
  THEN
    BEGIN
      WRITELN('Введённые данные выходят из диапазона допустимых значений');
      EXIT
    END;
  IF NOT (N IN [100..999]) 
  THEN
    WRITELN('FALSE') 
  ELSE
    IF (N MOD 10) + ((n MOD 100) DIV 10) + (N DIV 100)  = 13 
    THEN 
      WRITELN('ENTER')
    ELSE
      WRITELN('LOCK')
END.
Добавлено через 1 минуту
Цитата Сообщение от ildwine Посмотреть сообщение
По условию сказано, отработал защиту
А,ясно. Сорри, не заметил.
Хотя,мне кажется в данном случае нужно выдать ошибку ввода.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.11.2013, 18:50
Помогаю со студенческими работами здесь

Составить структурную блок-схему для решения задачи "игра 2 лисы и 20 кур"
помогите составить структурную блок-схему для решения задачи &quot;игра 2 лисы и 20 кур&quot;

Игра "Две лисы и 20 кур"
Игра &quot;Две лисы и 20 кур&quot; На поле указанной формы находятся две лисы и 20 кур. Куры могут...

Игра "Две лисы и 20 кур"
Игра &quot;Две лисы и 20 кур&quot; На поле указанной формы находятся две лисы и 20 кур. Куры могут...

Программа: игра "2 лисы и 20 кур"
Скрин задачи:


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru