Question

Дано четырехзначное число. Определить, входят ли в него цифры 3, 6 или 9. Напишите код на языке Delphi.

Answer 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;

Если не затруднит и ответ будет верный, то поставьте в "Лучший ответ"! Премного благодарен!