Выяснить, входит ли цифра 3 в запись числа

@Кссер · Регистрация: 31.01.2010

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

Помогите пожалуйста,Дано натуральное n. Выяснить, входит ли цифра 3 в запись числа

@yanyk1n · 10.02.2010, 17:36

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var n:longint;
f:boolean;
 
begin
 clrscr;
 write('N-> ');
 readln(n);
 f:=false;
 while n<>0 do
 begin
  if  n mod 10=3 then f:=true;
  n:=n div 10;
 end;
 if f then write('YES') else write('NO');
 readln;
end.

@Inadequate · 10.02.2010, 17:47

или так

Pascal
1
2
3
4
5
6
7
8
9
var
  N: integer;
  temp: string;
begin
  ReadLn(N);
  Str(N,temp);
  WriteLn(Pos('3',temp)<>0);
  ReadLn
end.

@Кссер · 10.02.2010, 17:53 **[ТС]**

а если не трудно, можно суть самой программы, что там и как...

@Inadequate · 10.02.2010, 17:59

Кссер, мою скорее всего препод Ваш не примет, а суть на самом деле простая. Она укладывается в эти строки из хэлпа

Str(x,s)
Str(x:n,s)
Str(x:n:m,s) процедура s - string, x - integer, real и n, m - integer преобразует x к строковому представлению (во втором и третьем случаях согласно формату вывода, устанавливаемому n и m) и записывает результат в строку s

Pos(subs,s) функция s, subs - string integer возвращает позицию первой подстроки subs в строке s (или 0 если подстрока не найдена)

@Кссер · 10.02.2010, 18:07 **[ТС]**

f:=false; для чего мы это задаём?

@yanyk1n · 10.02.2010, 18:08

Кссер, флаг - FALSE, если цифры 3 не встречали, TRUE - встречали.

@Inadequate · 10.02.2010, 18:20

Кссер, можно и так, без логической переменной

Pascal
1
2
3
4
5
6
7
8
9
10
var
  temp,N: integer;
begin
  ReadLn(N);
  temp:=N;
  while (temp mod 10 <> 3) and (temp <> 0) do
    temp:=temp div 10;
  WriteLn(temp mod 10 = 3);
  ReadLn
end.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@Кссер 0 / 0 / 1 Регистрация: 31.01.2010 Сообщений: 50

	Выяснить, входит ли цифра 3 в запись числа 10.02.2010, 17:34. Показов 4322. Ответов 7 Метки нет (Все метки) Помогите пожалуйста,Дано натуральное n. Выяснить, входит ли цифра 3 в запись числа 0

@Кссер 0 / 0 / 1 Регистрация: 31.01.2010 Сообщений: 50
	10.02.2010, 17:53 [ТС]
	а если не трудно, можно суть самой программы, что там и как... 0

@Кссер 0 / 0 / 1 Регистрация: 31.01.2010 Сообщений: 50
	10.02.2010, 18:07 [ТС]
	f:=false; для чего мы это задаём? 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	10.02.2010, 18:08
	Кссер, флаг - FALSE, если цифры 3 не встречали, TRUE - встречали. 1