Задать вопрос
ИнформатикаИнформатика
23 мая, 09:02

1. Дано целое

число А. Определить количество цифр в числе, которые больше 6. Pascal

+5
Ответы (1)
  1. 23 мая, 10:59
    0
    Var

    A, counter: integer;

    begin

    readln (A);

    counter : = 0;

    repeat

    if (A mod 10 > 6) then

    inc (counter);

    A : = A div 10;

    until (A = 0);

    writeln (counter);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «1. Дано целое число А. Определить количество цифр в числе, которые больше 6. Pascal ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы
Помоги с ответом
Какое наибольшее число плоскастей можно проаести через различные пары из четырех параллельных прямых
Нет ответа
Почему при упоминании о лимоне у человека выделяется слюна? случается ли такое у людей которые не ели лимоны?
Нет ответа
Значения слов: 1. Дельта 2. пороги 3. ил 4. папирус 5. оазин 6. фараон
Нет ответа
Объясните как определить заряд иона образуемого кислотным остатком и соответствующий оксид ... на примере H3PO4
Нет ответа
Найдите значение минус А если 1) a=3,8 2) a=-6,4
Нет ответа
Главная » Информатика » 1. Дано целое число А. Определить количество цифр в числе, которые больше 6. Pascal
Регистрация Забыл пароль