Паскаль:Дано натуральное число n. Необходимо определить, есть ли в нём цифра 3.
Паскаль:Дано натуральное число n. Необходимо определить, есть ли в нём цифра 3.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
program CheckDigit;
var
n, digit: integer;
isThree: boolean;
begin
isThree := false;
write('Введите натуральное число: ');
readln(n);
while n <> 0 do
if digit = 3 thenbegin
digit := n mod 10;
begin
isThree := true;
break;
end;
n := n div 10;
end;
if isThree then
writeln('В числе есть цифра 3')
else
writeln('В числе нет цифры 3');
end.