Задать вопрос
18 августа, 11:24

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

Pascal

+2
Ответы (1)
  1. 18 августа, 13:57
    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 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы