Задать вопрос

Дано натуральное число. Верно ли, что в нем нет цифры b? Написать программу на паскале не используя boolean массивы и строковые типы

+1
Ответы (1)
  1. 22 августа, 19:38
    0
    program zz1;

    var n1, n, k, b, m:integer;

    begin

    read (n); / /вводим заданное n

    read (b); / /вводим заданную цифру

    n1:=n; / /запоминаем исходное n

    while n0 do / /повторяем цикл пока исходное число не станет 0

    begin

    m:=n mod 10; / /получаем последнюю цифру числа

    if b=m then k:=k+1; / /если она равна заданной цифре, то считаем ее

    n:=n div 10; / /выбрасываем эту цифру из числа

    end;

    if k=0 then write ('цифры ', b,' в числе ', n1,' нет') else write ('цифра ', b,' в числе ', n1,' есть'); / / выводим ответ на экран

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Дано натуральное число. Верно ли, что в нем нет цифры b? Написать программу на паскале не используя boolean массивы и строковые типы ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Дано натуральное число. Верно ли, что количество его цифр есть четное число, а само число не превышает b? Написать программу на паскале используя циклы, но не используя массивы, строковый тип и boolean
Ответы (1)
Написать программу на Паскале по теме: Строковые величины. задача: Путем вырезок и склеек букв получить из слова "трос" слова "сорт, рост и торс"
Ответы (1)
написать программу на языке паскаля 1) Дано натуральное число. Определить является ли оно чётным 2) дано натуральное число. Определить оканчивается ли оно цифрой 7.
Ответы (1)
1) Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом. 2) Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры (не обязательно стоящие рядом).
Ответы (1)
Дано действительное число x и натуральное число n. Написать программу вычисления выражения x^2/1+x^3/2 + ... + x^n/n-1. В паскале
Ответы (1)