Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 18.06.2014
Сообщений: 16
1

Дано четырёхзначное число, узнать входит ли в него цифра 4, входит ли в него цифра b

28.06.2014, 12:58. Просмотров 2344. Ответов 2
Метки нет (Все метки)

У меня последнее задание осталось буду благодарен если поможете. Вот такое задание: Дано четырёхзначное число, узнать входит ли в него цифра 4, входит ли в него цифра b. Помогите пожалуйста это последнее.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.06.2014, 12:58
Ответы с готовыми решениями:

Выяснить, входит ли цифра в запись числа
ситуация такова: нужно в самые кратчайшие сроки решить протецкую задачку. есть только в паскале,...

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

Цифра пять входит в десятичную запись черырехзначного числа K
Написать программу, проверяющую истинность высказывания «Цифра пять входит в десятичную ...

Определить, входит ли цифра в десятичную запись трехзначного числа
1.Хватит ли в баке автомобиля бензина, чтобы доехать до ближайшей заправочной станции? ...

2
Эксперт Pascal/Delphi
4660 / 2647 / 832
Регистрация: 04.10.2012
Сообщений: 9,645
28.06.2014, 13:25 2
Лучший ответ Сообщение было отмечено ilua564 как решение

Решение

ilua564, разместите на форме 2 TEdit, 2 TLabel и TButton
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
var
n:Integer;
b:Byte;
begin
if (Length(Edit1.Text)<4) or (Length(Edit1.Text)>4)  then
ShowMessage('Введите 4-значное число!')
else
begin
n :=StrToInt(Edit1.Text);  //задаем число
b :=StrToInt(Edit2.Text); //задаем цифру b
if (n div 1000=4) or ((n mod 1000) div 100=4) or ((n mod 100) div 10=4) or (n mod 10=4) then
Label1.Caption :='Цифра 4 входит в заданное число'
else
Label1.Caption :='Цифра 4 не найдена';
 
if (n div 1000=b) or ((n mod 1000) div 100=b) or ((n mod 100) div 10=b) or (n mod 10=b) then
Label2.Caption :='Указанная цифра '+InttoStr(b)+' входит в заданное число'
else
Label2.Caption :='Указанная цифра '+InttoStr(b)+' не найдена';
end;
 
end;
 
end.
1
0 / 0 / 0
Регистрация: 18.06.2014
Сообщений: 16
28.06.2014, 13:45  [ТС] 3
А куда четырёхзначное число вводить

Добавлено через 2 минуты
Всё разобрался
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.06.2014, 13:45

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

Проверить, что цифра пять входит в десятичную запись черырехзначного числа
Написать программу, проверяющую истинность высказывания «Цифра пять входит в десятичную ...

Напечатать те слова, которые удовлетворяют условию: "каждая буква входит в него более двух раз"
Данная последовательность слов , напечатать те слова которые удовлетворяют условию: каждая буква...

Дано натуральное число, определить равна ли первая цифра числа его последней цифре
Дано натуральное число.Определить равна ли первая цифра числа его последней цифре. как сделать в...

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


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

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

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