Дано двухзначное число. Определить входят ли в него цифры 4 или 7

@Gira · Регистрация: 12.06.2014

Author24 — интернет-сервис помощи студентам

3. Дайте код задачи. Я Вас прошу.(Уважения вам)

Дано двухзначное число.Опредилить
а)входят ли в него цифри 4 или 7
б)входят ли в него цифри 3,6 или 9

@ZX Spectrum-128 · 19.06.2014, 12:13

Pascal
1
2
3
4
5
6
7
8
9
10
11
Var
 X,k,n:integer;
Begin
 Readln(x);
 K:=x mod 10;
 N:=x div 10;
 If (k=4) or (k=7) or (n=4) or (n=7) then
  Write('yes')
 Else
  Write('no');
End.

Вариант Б точно также. Меняете цифры и добавляете еще одну переменную и одно условие для 3-й цифры.

@AlexKolc · 19.06.2014, 12:14

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  n: integer;
  
begin
  readln(n);
  write('a) ');
  if (n mod 10 = 4)or(n div 10 = 4)
    then writeln('Âõîäèò')
    else
      if (n mod 10 = 7)or(n div 10 = 7)
        then writeln('Âõîäèò')
        else writeln('Íå âõîäèò íè 4, íè 7');
  write('á) ');
  if (n mod 10 = 3)or(n div 10 = 3)
    then writeln('Âõîäèò')
    else
      if (n mod 10 = 6)or(n div 10 = 6)
        then writeln('Âõîäèò')
        else
          if (n mod 10 = 9)or(n div 10 = 9)
            then writeln('Âõîäèò')
            else writeln('Íå âõîäèò íè 3, íè 6, íè 9');
end.

@APALoff · 19.06.2014, 12:19

Pascal
1
2
3
4
5
6
Var
 X : integer;
Begin
 Readln(x);
 Writeln(((x div 10) in [4,7]) or ((x mod 10) in [4,7]));
End.

Добавлено через 24 секунды

Не по теме:

Кто-то в микро, а кто-то в макро...

Добавлено через 54 секунды

Не по теме:

AlexKolc, зачем такие монстры выставлять, если до Вас уже было достаточно лаконичное решение?

Добавлено через 1 минуту

Не по теме:

Хотя может не успели обновить страницу...

@AlexKolc · 19.06.2014, 12:21

APALoff, когда посылала я не видела, что ответ уже есть.

@APALoff · 19.06.2014, 12:22

Сообщение от AlexKolc

на отрезке от 4 до 7

А где Вы тут видите отрезок?
[4,7] - это не [4..7]

@AlexKolc · 19.06.2014, 12:23

APALoff, уже поняла, убрала

@Gira · 19.06.2014, 13:10 **[ТС]**

спасибо вам большое

Новые блоги и статьи Все статьи Все блоги /
Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .
C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .	Состояние гонки в C#: подводные камни многопоточного программирования UnmanagedCoder 20.03.2025 Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .	Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .

@Gira 0 / 0 / 0 Регистрация: 12.06.2014 Сообщений: 48

	Дано двухзначное число. Определить входят ли в него цифры 4 или 7 19.06.2014, 10:49. Показов 19299. Ответов 7 Метки нет (Все метки) 3. Дайте код задачи. Я Вас прошу.(Уважения вам) Дано двухзначное число.Опредилить а)входят ли в него цифри 4 или 7 б)входят ли в него цифри 3,6 или 9 0

@AlexKolc 191 / 161 / 116 Регистрация: 14.09.2013 Сообщений: 302
	19.06.2014, 12:21
	APALoff, когда посылала я не видела, что ответ уже есть. 0

@APALoff 1647 / 1076 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	19.06.2014, 12:22
	Сообщение от AlexKolc на отрезке от 4 до 7 А где Вы тут видите отрезок? [4,7] - это не [4..7] 0

@AlexKolc 191 / 161 / 116 Регистрация: 14.09.2013 Сообщений: 302
	19.06.2014, 12:23
	APALoff, уже поняла, убрала 0

@Gira 0 / 0 / 0 Регистрация: 12.06.2014 Сообщений: 48
	19.06.2014, 13:10 [ТС]
	спасибо вам большое 0

Опции темы