В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
галина261
галина261
13.05.2021 03:24 •  Информатика

Дано двузначное число. определите, входят ли в него цифры 7 или 1. (c функций div и mod сначала выделить цифры числа, а потом сравнить каждую из них данными 7 и 1, чтобы составить сложное условие из нескольких простых используют логическую функцию or, а каждое простое условие заключается в скобки) в pascal

Показать ответ
Ответ:
FUKCтическая
FUKCтическая
02.10.2020 10:43
Var
  n,d10,d:integer;
begin
  Write('Введите двухзначное число: '); Readln(n);
  d10:=n div 10; d:=n mod 10;
  if ((d10=1) or (d=1)) then begin
    Write('В число входит цифра 1');
    if ((d10=7) or (d=7)) then Writeln(' и цифра 7')
    else Writeln
  end
  else
    if ((d10=7) or (d=7)) then Writeln('В число входит цифра 7')
    else Writeln('В число не входят цифры 1 и 7')
end.

Примеры работы программы:
Введите двухзначное число: 37
В число входит цифра 7

Введите двухзначное число: 15
В число входит цифра 1

Введите двухзначное число: 71
В число входит цифра 1 и цифра 7

Введите двухзначное число: 28
В число не входят цифры 1 и 7
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота