Как можно создать программу на языке Паскаль, которая будет проверять, присутствует ли среди цифр двузначного числа 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.