Question

Паскаль:Дано натуральное число n. Необходимо определить, есть ли в нём цифра 3.

Answer 1

Program three;
var n,k,i:integer;
begin
randomize;
n:=random(32768);
k:=n;
repeat
i:=n mod 10;
n:=n div 10
until (n:=0) or (i:=3);
if i=3 then
write('Число', k ', содержит цифру 3')
else
write('Число', k ', не содержит цифру 3')
end.

Answer 2

Вы можете написать программу на Pascal для определения наличия цифры 3 в данном натуральном числе. Вот пример программы:

pascalCopy code
program CheckForThree;
var
  n, digit: integer;
  hasThree: boolean;
begin
  // Вводим натуральное число
  write('Введите натуральное число: ');
  readln(n);

  // Инициализируем переменную hasThree как false
  hasThree := false;

  // Проверяем каждую цифру в числе на наличие тройки
  while n > 0 do
  begin
    digit := n mod 10; // Получаем последнюю цифру числа
    if digit = 3 then
    begin
      hasThree := true;
      break; // Если найдена тройка, завершаем цикл
    end;
    n := n div 10; // Убираем последнюю цифру числа
  end;

  // Выводим результат
  if hasThree then
    writeln('В числе есть цифра 3.')
  else
    writeln('В числе нет цифры 3.');
end.

Эта программа сначала вводит натуральное число, затем проверяет каждую цифру в числе на наличие тройки, используя операции деления на 10 и остатка от деления. Если программа находит цифру 3, она устанавливает флаг hasThree в значение true и завершает выполнение цикла. После цикла программа выводит результат: "В числе есть цифра 3" или "В числе нет цифры 3" в зависимости от значения hasThree.