Question

Дано натуральное число определить а)Есть ли в нем цифра 3 б)Есть ли в нем цифры 2 и 5 Pascal abc12баллов

Answer 1

var

a, n: longint;

v1, v2, v3: byte;

s: byte;

begin

readln(a);

n := a;

v1 := 0;

v2 := 0;

v3 := 0;

while (n <> 0) do begin

s := n mod 10;

n := n div 10;

if (s = 3) then

v1 := 1;

if (s = 2) then

v2 := 1;

if (s = 5) then

v3 := 1;

end;

if (v1 = 1) then

writeln('В этом числе есть цифра 3')

else

writeln('В этом числе нет цифры 3');

if (v2 = 1) and (v3 = 1) then

writeln('В этом числе есть цифры 2 и 5')

else

writeln('В этом числе нет одновременно цифр 2 и 5');

end.

Answer 2

Для решения данной задачи вам потребуется выполнить несколько шагов:

1. Преобразовать данное натуральное число в строку, чтобы можно было легче проверять наличие цифр.
2. Проверить наличие цифры 3 в числе.
3. Проверить наличие цифр 2 и 5 в числе.

Давайте рассмотрим решение на языке программирования Pascal (Delphi):

pascalCopy code
program CheckDigits;
var
  number, tempNumber: LongInt;
  hasDigit3, hasDigit2And5: Boolean;
  digit: Integer;
begin
  // Вводим натуральное число
  Write('Введите натуральное число: ');
  ReadLn(number);

  // Инициализируем переменные, предполагая, что цифры не найдены
  hasDigit3 := False;
  hasDigit2And5 := False;

  // Проверяем наличие цифры 3, а также цифр 2 и 5
  tempNumber := number;
  while tempNumber > 0 do
  begin
    digit := tempNumber mod 10;
    if digit = 3 then
      hasDigit3 := True
    else if (digit = 2) or (digit = 5) then
      hasDigit2And5 := True;

    tempNumber := tempNumber div 10;
  end;

  // Выводим результаты проверки
  if hasDigit3 then
    WriteLn('В числе есть цифра 3.');
  if hasDigit2And5 then
    WriteLn('В числе есть цифры 2 и 5.');
end.

Программа позволяет пользователю ввести натуральное число, а затем проверяет наличие цифры 3 и наличие цифр 2 и 5. Результаты проверки выводятся на экран.

Обратите внимание, что в Pascal индексация цифр числа начинается с младших разрядов, поэтому мы используем операции деления на 10 и взятия остатка от деления для перебора цифр числа.