Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.94/34: Рейтинг темы: голосов - 34, средняя оценка - 4.94
0 / 0 / 0
Регистрация: 21.01.2018
Сообщений: 16
1

Дано трёхзначное число. Определить, входит ли в него цифра 3

02.02.2018, 08:09. Просмотров 6362. Ответов 2
Метки нет (Все метки)


Дано трёхзначное число. Определить:
А) входит ли в него цифра 3
Б) входит ли в него цифра а
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.02.2018, 08:09
Ответы с готовыми решениями:

"Дано трехзначное число. Определить входит ли в него цифра 4."
Надо решить "Дано трехзначное число. Определить входит ли в него цифра 4."

Дано трехзначное число. Определить входит ли в него цифра n
Помогитеее

Дано четырехзначное число. Определить входит ли в него цифра b
Дано четырехзначное число. Определить входит ли в него цифра b.Помогите решить плиз.Заранее...

Дано натуральное число N , определить входит ли в него цифра 3.
Нам говорили что надо это делать с использованием Mod и Div. Когда использую эти операторы то...

2
4256 / 2040 / 2094
Регистрация: 10.12.2014
Сообщений: 7,861
02.02.2018, 08:36 2
Лучший ответ Сообщение было отмечено dashkafil как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function inNumber(n, a : Integer) : Boolean;
var r : Boolean;
begin
  r := n = a;
  while n <> 0 do
    begin
      r := r or (n mod 10 = a);
      n := n div 10;
    end;
  inNumber := r;
end;
 
var a, n : Integer;
begin
  Write('число = '); ReadLn(n);
  WriteLn('цифра 3 входит в число = ', inNumber(n, 3));
  Write('цифра a = '); ReadLn(a);
  if (a < 0) or (a > 9) then begin WriteLn('Это не цифра!'); Halt; end;
  WriteLn('цифра ', a, ' входит в число = ', inNumber(n, a));
end.
0
Модератор
62900 / 46930 / 32344
Регистрация: 18.05.2008
Сообщений: 113,713
02.02.2018, 08:45 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure cifra(a,b:integer);
begin
if(a mod 10=b)or(a div 10 mod 10=b)or(a div 100=b)then
writeln('Цифра ',b,' есть в числе')
else writeln('Цифры ',b,' нет в числе')
end;
var n,a:integer;
begin
repeat
write('Введите натуральное трехзначное число n=');
readln(n);
until (n>99)and(n<1000);
repeat
write('Введите цифру a=');
readln(a);
until a in [0..9];
cifra(n,3);
cifra(n,a)
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2018, 08:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Дано двузначное число, входит ли в него цифра 3, входит ли в него цифра а
Задача № 56 Дано двузначное число Определить : а) входной ли в него цифра 3; в) входит ли в...

4.53. Дано трехзначное число. Определить: а) входит ли в него цифра 6, б) входит ли в него цифра n
4.53. Дано трехзначное число. Определить: а) входит ли в него цифра 6, б) входит ли в него цифра n

Надо решить "Дано трехзначное число. Определить входит ли в него цифра 4."
Дано трехзначное число. Определить входит ли в него цифра 4.

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.