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

@ilua564 · Регистрация: 18.06.2014

У меня последнее задание осталось буду благодарен если поможете. Вот такое задание: Дано четырёхзначное число, узнать входит ли в него цифра 4, входит ли в него цифра b. Помогите пожалуйста это последнее.

@droider · 28.06.2014, 13:25

ilua564, разместите на форме 2 TEdit, 2 TLabel и TButton

Delphi

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.

@ilua564 · 28.06.2014, 13:45 **[ТС]**

А куда четырёхзначное число вводить

Добавлено через 2 минуты
Всё разобрался

@ilua564 0 / 0 / 0 Регистрация: 18.06.2014 Сообщений: 16
		1
	Дано четырёхзначное число, узнать входит ли в него цифра 4, входит ли в него цифра b 28.06.2014, 12:58. Просмотров 2344. Ответов 2 Метки нет (Все метки) У меня последнее задание осталось буду благодарен если поможете. Вот такое задание: Дано четырёхзначное число, узнать входит ли в него цифра 4, входит ли в него цифра b. Помогите пожалуйста это последнее. 0

@ilua564 0 / 0 / 0 Регистрация: 18.06.2014 Сообщений: 16
	28.06.2014, 13:45 [ТС]	3
	А куда четырёхзначное число вводить Добавлено через 2 минуты Всё разобрался 0

Опции темы

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

Решение