Задать вопрос Регистрация
Помочь другим

  • Решить задачи • Найдите сумму цифр числа; • Найдите первую цифру числа; • Поменяйте порядок цифр числа на обратный; • Найдите количество четных цифр числа; • Найдите наибольшую цифру числа; • Найдите сумму цифр числа, больших 5.

Ответы 1

  • Чтобы получить цифры числа

    var digit,num:integer;

    ....

    while num<>0 do

    begin

           digit := num mod 10;

            num := num div 10;

           {обработать цифру}

    end;

     

    Вот к примеру для первых двух задач

     

    while num<>0 do

    begin

           digit := num mod 10;

            num := num div 10;

           sum:=sum+digit

    end;

     

    while num<>0 do

    begin

           digit := num mod 10;

            num := num div 10

    end;

    digit - первая цифра

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years