Как можно создать программу на языке Паскаль, которая будет проверять, присутствует ли среди цифр двузначного числа N однозначное число M?

Информатика 9 класс Программирование на языке Паскаль создание программы на Паскале проверка двузначного числа наличие однозначного числа Новый

Создание программы на языке Паскаль для проверки, присутствует ли среди цифр двузначного числа N однозначное число M, можно разбить на несколько шагов. Давайте рассмотрим их подробнее.

1. Определение переменных:
   • Переменная N для хранения двузначного числа.
   • Переменная M для хранения однозначного числа.
   • Переменные для хранения цифр числа N.
2. Ввод данных:
   • Попросите пользователя ввести двузначное число N.
   • Попросите пользователя ввести однозначное число M.
3. Извлечение цифр из числа N:
   • Для извлечения первой цифры можно использовать целочисленное деление на 10.
   • Для извлечения второй цифры можно использовать оператор остатка от деления (mod) на 10.
4. Проверка присутствия M среди цифр N:
   • Сравните M с первой и второй цифрами числа N.
   • Если M совпадает с одной из цифр, значит, оно присутствует.
5. Вывод результата:
   • Выведите сообщение о том, присутствует ли M среди цифр N.

Теперь давайте посмотрим на пример кода программы на языке Паскаль:

program CheckDigitPresence;
var
    N, M: integer;
    firstDigit, secondDigit: integer;
begin
    writeln('Введите двузначное число N:');
    readln(N);
    writeln('Введите однозначное число M:');
    readln(M);

    { Извлечение цифр }
    firstDigit := N div 10;  { Первая цифра }
    secondDigit := N mod 10; { Вторая цифра }

    { Проверка присутствия M }
    if (M = firstDigit) or (M = secondDigit) then
        writeln('Число ', M, ' присутствует среди цифр числа ', N)
    else
        writeln('Число ', M, ' не присутствует среди цифр числа ', N);
end.

В этом коде мы:

• Объявили необходимые переменные.
• Считали значения N и M от пользователя.
• Извлекли цифры из числа N.
• Проверили, совпадает ли M с одной из цифр и вывели соответствующее сообщение.

Таким образом, программа успешно проверяет наличие однозначного числа M среди цифр двузначного числа N.