Дано четырехзначное число. Определить, входят ли в него цифры 3, 6 или 9. Напишите код на языке Delphi.
Ответы
Ответ дал:
1
program CheckDigits;
var
number: Integer;
digit: Integer;
containsDigits: Boolean;
begin
Write('Введите четырехзначное число: ');
ReadLn(number);
containsDigits := False;
while (number > 0) do
begin
digit := number mod 10;
if (digit = 3) or (digit = 6) or (digit = 9) then
begin
containsDigits := True;
Break;
end;
number := number div 10;
end;
if containsDigits then
WriteLn('Число содержит цифры 3, 6 или 9')
else
WriteLn('Число не содержит цифры 3, 6 или 9');
ReadLn;
Если не затруднит и ответ будет верный, то поставьте в "Лучший ответ"! Премного благодарен!
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад