Задать вопрос
15 мая, 11:49

Дано многозначное число. Проверить, есть ли среди цифр данного числа цифра 4.

+2
Ответы (1)
  1. 15 мая, 13:18
    0
    Var

    A:longint;

    k:byte;

    Begin

    k:=0;

    Write ('Введите число: ') ; ReadLn (A) ;

    A:=Abs (A) ;

    While A > 0 do

    Begin

    if A mod 10 = 4 then k:=1;

    A:=A div 10

    End;

    if k=0 then WriteLn ('В данном числе нет цифры 4')

    else WriteLn ('В данном числе есть цифра 4') ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дано многозначное число. Проверить, есть ли среди цифр данного числа цифра 4. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Дано двузначное число. Определить: a. какая из его цифр больше, первая или вторая; b. одинаковы ли его цифры. 2. Дано двухзначное число. Определить, равен ли квадрат этого числа учетверённой сумме кубов его цифр.
Ответы (1)
Дано натуральное число: определить а) количество цифр в нем б) сумму его цифр в) произведение его цифр г) среднее арифметическое его цифр д) сумму квадратов его цифр е) сумму кубов его цифр ж) его первую цифру з) сумму его первой и последней цифр
Ответы (1)
Придумайте натуральное число которое удовлетворяет следущим условиям: 1. Запись числа состоит из 7 цифр 2. Сумма всех цифр числа равна 39. 3. В записи числа есть хотя бы одна цифра 4 4. В записи числа есть хотя бы одна цифра 7 5.
Ответы (1)
Нарисуй в окне цепочку П из пяти цифр так, чтобы все пять утверждений были истенными: В цепочке П цифра 3 идет раньше цифры 9. В цепочке П цифра 2 идет позже цифры 6. В цепочке П цифра 6 идет раньше цифры 9. В цепочке П цифра 6 идет позже цифры 5.
Ответы (1)
1. Дано трехзначное число. Найти число единиц в нем число десятков в нем сумму его цифр произведение его цифр 2. Дано трехзначное число. Найти число. Найти число, полученное при прочтении его цифр справа налево
Ответы (1)