Как можно создать программу на языке Паскаль, которая будет проверять, присутствует ли среди цифр двузначного числа N однозначное число M?
Информатика 9 класс Программирование на языке Паскаль создание программы на Паскале проверка двузначного числа наличие однозначного числа
Создание программы на языке Паскаль для проверки, присутствует ли среди цифр двузначного числа N однозначное число M, можно разбить на несколько шагов. Давайте рассмотрим их подробнее.
Теперь давайте посмотрим на пример кода программы на языке Паскаль:
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.
В этом коде мы:
Таким образом, программа успешно проверяет наличие однозначного числа M среди цифр двузначного числа N.