Задать вопрос
ИнформатикаИнформатика
18 апреля, 19:41

Дано натуральное число. Определить, какая цифра встречается в нём чаще-1 или 9.

Pascal

+5
Ответы (1)
  1. 18 апреля, 20:16
    0
    Varn, nine, one: integer;

    begin

    readln (n) ;

    nine : = 0;

    one : = 0;

    while (n > 0) do

    begin

    if (n mod 10 = 1) then

    inc (one)

    else

    if (n mod 10 = 9) then

    inc (nine) ; n : = n div 10;

    end;

    if (one = nine) then

    writeln ('Равны')

    else

    if (one > nine) then

    writeln ('Единиц больше')

    else

    writeln ('Девяток больше') ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дано натуральное число. Определить, какая цифра встречается в нём чаще-1 или 9. Pascal ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
1. Дано натуральное число. Найти первую цифру данного числа. 2. Дано натуральное число. Определить количество троек в нем. 3. Дано натуральное число. Определить количество четных цифр в нем. Все это при помощи цикла:while
Ответы (1)
Как описывают переменные в Pascal? Какие стандартные числовые типы языка Pascal вам известны? Что вам известно о соответствии типов переменных в языке Pascal? Какие арифметические операции можно выполнять в Pascal?
Ответы (1)
Дано натуральное число. Определить: 1) Определить количество повторений заданной цифры в нем 2) Сколько раз в нем встречается цифра, равная последней 3) Количество четных цифр в нем. желательно в Basic. но можно и паскаль
Ответы (1)
1) Вычислить длину окружности и площадь круга одного и того же заданного радиуса R. Pascal (желательно с блок-схемой) 2) Найти сумму членов арифметической прогрессии, если известны её первый член, знаменатель и число членов прогрессии Pascal
Ответы (1)
Дано натуральное число. Определить: б) сколько раз в нем встречается цифра, равная последней; в) количество четных цифр в нем.
Ответы (1)
Помогите с ответом
Напиши, что умеют делать животные. Прочти предложения. 1. A fish. 2. A horse. 3. A bird. 4. A chimp. 5. A dog. 6. A mouse. 7. A dolphin. 8. A kangaroo. 9. An. elephant. 10. A rabbit.
Нет ответа
Сделайте синтасический разбор предложений: Быстро растаял под лучами яркого солнца снег. Хороши летом глазастые ромашки! Идёшь в тишине, и уха коснётся трубный звук.
Нет ответа
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Прочитайте. определите слово по его лексическому значению неб льшой сочный плод курстарников и трав. () тот, кто учится в школе () первый месец зимы () иструмент для копания земли () хлебный злак () часть горизонта, где восходит солнце () вставьте
Нет ответа
Главная » Информатика » Дано натуральное число. Определить, какая цифра встречается в нём чаще-1 или 9. Pascal
Регистрация Забыл пароль